excel按钮代码怎么写 _按钮

1. Excel 按钮代码你好！楼主想要的，其实很简单，VBA代码如下：（望笑纳）
Sub SuoDing()
On Error Resume Next '忽略可能出现的错误
Set MySheet1 = ThisWorkbook.Worksheets("Sheet1") '定义Sheet1
MySheet1.Protect Password:="123456", DrawingObjects:=True, _
Contents:=True, Scenarios:=True '保护工作表
End Sub
Sub JieSuo()
On Error Resume Next
Set MySheet1 = ThisWorkbook.Worksheets("Sheet1")
MySheet1.Unprotect Password:="123456" '解除保护
End Sub
在工作表界面的两个按钮分别指定这两个宏：
之后点击【锁定】则不能输入内容，点击【解锁】就可以正常输入。
2. excel按钮控件怎么写代码通过VBA，添加组合框控件，然后通过事件更新，完全可以做到
不过LZ为什么不换个思路啊，为什么一定要用VBA呢，要知道你EXCEL使用VBA，别人用的时候，需要修改宏的安全级别，同时，利用数据有效性，就可以完全可以做到啊。
在某一个单元格（假定为A2）设置数据有效性，下拉菜单中设置op1和op2，供你选择。
然后，在H2输入公式：
=IF(A2="op1",H3,IF(A2="op2",H4,""))
ListBox属于ActiveX 控件，看你的EXCEL版本，如果03版的话，自行找一下，具体路径忘了，07 10版的话，在EXCEL选项中，找到自定义工具，然后勾选“开发工具”，然后插入这个控件就可以了。需要说明的是，ListBox是一个显示可选项的控件，就像EXCEL一样，它会显示你属于的值，1个或很多个，然后，你选择就可以了。
我简单给你做了个样品，你自己修改吧
第一步，是给控件赋值，也就是将op1和op2显示在ListBox控件中，我通过命令完成的
Private Sub CommandButton1_Click()
With ListBox1
.Clear
.AddItem "op1"
.AddItem "op2"
【excel按钮代码怎么写】End With
End Sub
这样，ListBox中就有了这2个选项，不是我们一般的单选或者复选框那种的。
下面就是
选op1时，H2=H3
选op2时，H2=H4
插入代码：
Private Sub ListBox1_Click()
If ListBox1.Value = "http://www.xuexi88.com/zhishi/op1" Then Range("H2") = Range("H3")
If ListBox1.Value = "http://www.xuexi88.com/zhishi/op2" Then Range("H2") = Range("H4")
End Sub
至于ListBox选项前，是否需要单选框，请在ListBox属性中设置~
3. excel按钮控件怎么写代码通过VBA，添加组合框控件，然后通过事件更新，完全可以做到
不过LZ为什么不换个思路啊，为什么一定要用VBA呢，要知道你EXCEL使用VBA，别人用的时候，需要修改宏的安全级别，同时，利用数据有效性，就可以完全可以做到啊。
在某一个单元格（假定为A2）设置数据有效性，下拉菜单中设置op1和op2，供你选择。
然后，在H2输入公式：
=IF(A2="op1",H3,IF(A2="op2",H4,""))
ListBox属于ActiveX 控件，看你的EXCEL版本，如果03版的话，自行找一下，具体路径忘了，07 10版的话，在EXCEL选项中，找到自定义工具，然后勾选“开发工具”，然后插入这个控件就可以了。需要说明的是，ListBox是一个显示可选项的控件，就像EXCEL一样，它会显示你属于的值，1个或很多个，然后，你选择就可以了。
我简单给你做了个样品，你自己修改吧
第一步，是给控件赋值，也就是将op1和op2显示在ListBox控件中，我通过命令完成的
Private Sub CommandButton1_Click()
With ListBox1
.Clear
.AddItem "op1"
.AddItem "op2"
End With
End Sub
这样，ListBox中就有了这2个选项，不是我们一般的单选或者复选框那种的。
下面就是
选op1时，H2=H3
选op2时，H2=H4
插入代码：