有请大侠，谢谢赐教！

331046383 · 发表于 2018-7-24 08:49

Private Sub CommandButton1_Click()
Worksheets("sheet1").Unprotect Password:="8"
Columns("i:z").EntireColumn.Hidden = False
End Sub
Private Sub CommandButton2_Click()
Columns("i:z").EntireColumn.Hidden = True
ActiveSheet.Protect Password:="8"
End Sub

是否可以用一个控件呢？

microyip · 发表于 2018-7-24 09:00

CommandButton就是按钮控件

331046383 · 发表于 2018-7-24 09:03

microyip 发表于 2018-7-24 09:00
CommandButton就是按钮控件

意思是没法用一个控件是么？

蓝桥玄霜 · 发表于 2018-7-24 09:44

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

microyip · 发表于 2018-7-24 09:49

331046383 发表于 2018-7-24 09:03
意思是没法用一个控件是么？

那是你不会用控件，还是不知道怎样设控件呢？

xiangbaoan · 发表于 2018-7-24 10:09

Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "保护" Then
      .Caption = "取消"
      Columns("i:z").EntireColumn.Hidden = True
      ActiveSheet.Protect Password:="8"
      Exit Sub
End If
If .Caption = "取消" Then
      .Caption = "保护"
      Worksheets("sheet1").Unprotect Password:="8"
      Columns("i:z").EntireColumn.Hidden = False
      Exit Sub
End If
End With
End Sub
'猜测的

331046383 · 发表于 2018-7-24 16:55

蓝桥玄霜发表于 2018-7-24 09:44
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复 ...

关键是上传不了附件啊

獨一無2 · 发表于 2018-7-24 17:03

是否可以用CheckBox空间代替button？

331046383 · 发表于 2018-7-24 17:05

xiangbaoan 发表于 2018-7-24 10:09
Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "保护" Then

我的目的是隐藏i:z和显示i:Z

xiangbaoan · 发表于 2018-7-24 17:40

331046383 发表于 2018-7-24 17:05
我的目的是隐藏i:z和显示i:Z

………………………………

		自动登录	找回密码
密码			免费注册

[求助] 有请大侠，谢谢赐教！

评分