VBA取消保护按钮

Question

我有一个带有多个按钮的 Excel 表。工作表需要解锁才能运行宏。虽然我发现了在独立运行时保护/取消保护工作表的短 VBA 代码，但当这些代码集成到按钮的代码中时，取消保护工作表不起作用。特定按钮的代码是：

Sub OptionButton56_Click()
     ActiveSheet.Unprotect Password:="Password"
            If Range("D33").Value = 2 Then
               Sheets("Input").Rows("34:35").Hidden = msoTrue
            ElseIf Range("D33").Value = 1 Then
               Sheets("Input").Rows("34:35").Hidden = msoFalse
            End If
    ActiveSheet.Protect Password:="Password"
End Sub

Answer 1

该代码应该可以工作。当您说它不起作用时，您是遇到某种错误还是一切都在执行，但您只是没有看到预期的变化？此外，更简单的方法是在保护工作表时使用userinterfaceonly:=True。如果您使用它，那么工作表只为用户锁定，而不是为 vba 代码锁定。因此，您无需在每次需要执行代码时都解锁工作表。我总是将这个宏用于我的所有模型：

'UserInterfaceOnly locks edits from user but allows VBA to edit (no need to unlock/lock before/after macros)
'This setting is kept in memory, so it must be applied on Open Workbook Event
Sub Lock_Model(wb As Workbook, Optional strFunction As String = "Lock")
    Dim varSheets As Variant

    varSheets = Array("sheet1", "sheet2") ' list all the sheets you want to lock

    'Lock/Unlock specified sheets in model
    If strFunction = "Lock" Then
        For i = LBound(varSheets) To UBound(varSheets)
            wb.Sheets(varSheets(i)).Protect Password:="Password", AllowFormattingColumns:=True, AllowFormattingRows:=True, UserInterfaceOnly:=True
        Next i
    Else
        For i = LBound(varSheets) To UBound(varSheets)
            wb.Sheets(varSheets(i)).Unprotect Password:="Password"
        Next i
    End If
End Sub

如果您不喜欢这种方法，请指定运行代码时究竟发生了什么。