Excel多按钮工作表VBA解除保护失效问题求助：按钮代码集成异常

我来帮你排查这个问题——你的代码逻辑本身没问题，但大概率是工作表引用不明确或者保护参数设置缺失导致的，咱们一步步来搞定：

核心问题分析 #

你当前代码用ActiveSheet.Unprotect来解锁，但后面操作的是Sheets("Input")的行。如果点击按钮时，当前激活的工作表不是Input，那你解锁的是别的表，而真正需要修改的Input表还是锁定状态，自然会看起来“解除保护无效”。另外，默认的Protect方法会完全限制VBA操作，没有设置UserInterfaceOnly参数的话，每次操作都必须手动解锁，也容易出问题。

修正后的代码方案 #

直接明确指定目标工作表，同时加上UserInterfaceOnly参数（这个参数能让VBA跳过界面保护直接操作工作表，后续无需重复解锁）：

Sub OptionButton56_Click()
    ' 明确声明并绑定目标工作表，避免ActiveSheet的不确定性
    Dim inputSheet As Worksheet
    Set inputSheet = ThisWorkbook.Sheets("Input")
    
    ' 解除目标工作表的保护
    inputSheet.Unprotect Password:="Password"
    
    ' 用Select Case替代ElseIf，代码更清晰
    Select Case inputSheet.Range("D33").Value
        Case 2
            inputSheet.Rows("34:35").Hidden = msoTrue
        Case 1
            inputSheet.Rows("34:35").Hidden = msoFalse
    End Select
    
    ' 重新保护工作表，关键加上UserInterfaceOnly:=True
    ' 这样后续VBA操作该表时，无需再执行Unprotect
    inputSheet.Protect Password:="Password", UserInterfaceOnly:=True
End Sub

额外注意事项 #

• 如果你的按钮是表单控件（而非ActiveX控件），要确保代码放在标准模块里，且工作表引用依然保持明确。
• 如果需要允许用户编辑ActiveX控件，在保护时可以额外加上AllowEditObjects:=True参数，避免控件点击事件被保护限制：

  inputSheet.Protect Password:="Password", UserInterfaceOnly:=True, AllowEditObjects:=True
  

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