分类：电脑/网络-软件-办公软件
问题：按钮打开关闭隐藏列用一按钮打开关闭隐藏的列，我用了如下代码：Di 
用一按钮打开关闭隐藏的列，我用了如下： Dim i Private Sub CommandButton1_Click() i = i + 1 Columns("A:A").Select If i / 2 = Int(i / 2) Then Selection.EntireColumn.Hidden = True Else Selection.EntireColumn.Hidden = False End If End Sub 可以打开和关闭，但是不能保护工作表，保护工作用一按钮打开关闭隐藏的列，我用了如下： Dim i Private Sub CommandButton1_Click() i = i + 1 Columns("A:A").Select If i / 2 = Int(i / 2) Then Selection.EntireColumn.Hidden = True Else Selection.EntireColumn.Hidden = False End If End Sub 可以打开和关闭，但是不能保护工作表，保护工作表 程序就无法运行，出现：“运行错误"1004"，不能设置Range的Hidden属性”。请问怎么办？
回答：最简单的：在设定工作表保护时勾选允许[设置列格式]就可以了，若有行隐藏行为则对应勾选[设置行格式]
另外一个繁复些的：在宏代码内增加关于工作表保护参数，且不罗嗦了。