添加切换按钮后Excel VBA的UserInterfaceOnly保护失效问题

核心原因 #

UserInterfaceOnly:=True 的保护机制有个容易踩的坑：它仅在当前工作簿打开的会话中有效，而且Excel的某些窗口/事件操作会触发保护状态的隐性重置——尤其是工作表上的ActiveX控件（比如你用的ToggleButton）触发事件时，结合无模式窗体（vbModeless）的显示/隐藏，会干扰Excel对保护上下文的判断，导致UserInterfaceOnly的权限被意外取消，变回普通的带密码保护状态。

当保护状态重置后，VBA代码失去了修改工作表属性的权限，尤其是操作隐藏工作表的列可见性这类需要编辑权限的动作时，就会直接抛出Error 1004。

可行的解决办法 #

1. 沿用你当前的规避方案（推荐）
   直接用用户窗体内部的切换按钮控制窗体的显示/隐藏，这种方式的事件运行在窗体上下文，不会干扰工作表的保护状态，避免触发保护重置。

2. 如果必须使用工作表ToggleButton
   在ToggleButton的点击事件末尾，重新执行一次工作表保护代码，强制恢复UserInterfaceOnly权限：

Private Sub ToggleButton_Click()
    If ToggleButton = True Then
        MyUserForm.Hide
    Else
        MyUserForm.Show vbModeless
    End If
    
    ' 重新为所有工作表设置UserInterfaceOnly保护
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ' 先取消保护（如果已保护），再重新设置
        If ws.ProtectContents Then ws.Unprotect Password:="XXX"
        ws.Protect Password:="XXX", UserInterfaceOnly:=True
    Next ws
End Sub

3. 额外注意事项
   确保工作簿打开时的保护代码放在ThisWorkbook的Workbook_Open事件中，且不要在其他任何代码里调用不带UserInterfaceOnly:=True的Protect方法——一旦调用普通保护，之前的UserInterfaceOnly设置会被完全覆盖。

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