受保护工作表VBA显示/隐藏列代码重启文件后报1004错误

问题根源 #

出现1004错误的核心原因是UserInterfaceOnly:=True这个保护设置不会随工作簿保存。运行ProtectAllSheets宏时，该参数允许宏在工作表保护状态下修改工作表结构（比如隐藏列），但关闭并重新打开工作簿后，Excel会丢失这个参数设置，工作表恢复为普通保护状态——此时即便A、B列是解锁的，宏也没有权限修改列的Hidden属性，从而触发报错。

解决方案 #

方案1：工作簿打开时自动重新应用带UserInterfaceOnly的保护 #

在工作簿的ThisWorkbook模块中添加打开事件，每次启动工作簿时自动执行ProtectAllSheets宏，重新设置UserInterfaceOnly属性：

Private Sub Workbook_Open()
    ProtectAllSheets
End Sub

操作步骤：

1. 按Alt+F11打开VBA编辑器
2. 在左侧项目窗口中双击ThisWorkbook
3. 粘贴上述代码到代码窗口
4. 保存工作簿为启用宏的格式（.xlsm或.xlsb）

该方案无需修改现有按钮绑定的宏，只需一次设置即可解决重启后的权限问题。

方案2：修改切换列的宏，操作前后手动控制保护状态 #

直接修改ToggleTableofContents宏，在切换列隐藏状态前临时取消保护，操作完成后重新应用带UserInterfaceOnly的保护：

Sub ToggleTableofContents()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim password As String
    password = "funpassword"
    
    ' 临时取消工作表保护
    ws.Unprotect password:=password
    ' 切换A、B列的隐藏状态
    ws.Columns("A:B").EntireColumn.Hidden = Not ws.Columns("A:B").EntireColumn.Hidden
    ' 重新应用保护并保留所有必要设置
    ws.Protect password:=password, _
               UserInterfaceOnly:=True, _
               EnableSelection:=xlUnlockedCells, _
               EnableOutlining:=True, _
               EnableAutoFilter:=True, _
               EnablePivotTable:=True
End Sub

该方案独立性更强，即便工作簿打开时宏未自动执行（比如临时禁用宏后再启用），点击按钮仍能正常工作。

补充说明 #

你在ProtectAllSheets中设置ws.Columns("A:B").Locked = False，这个操作仅针对单元格编辑权限，和修改列隐藏的工作表结构权限无关——列隐藏属于工作表结构修改，只有UserInterfaceOnly:=True或临时取消保护才能让宏执行该操作。

内容的提问来源于stack exchange，提问作者Bennett Newman