受保护工作表中按钮触发宏无响应问题求助

问题原因 #

UserInterfaceOnly:=True仅允许通过用户界面修改受保护工作表的内容，但VBA代码执行的单元格修改操作（比如Replace）仍会被保护机制拦截。另外该参数不会随工作簿保存，每次打开工作簿后需要重新设置，否则会失效。

解决方案 #

方案1：宏内临时解除保护 #

在宏执行核心操作前先解除工作表保护，完成后重新保护，代码如下：

Sub ApproveAllPending()
    ' 解除工作表保护（替换为你的密码）
    Sheet1.Unprotect Password:="password"
    
    ' 执行替换操作
    Columns("B").Replace What:="Pending", _
                            Replacement:="Approved", _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False
    
    ' 重新保护工作表，启用UserInterfaceOnly
    Sheet1.Protect Password:="password", UserInterfaceOnly:=True
End Sub

方案2：确保工作簿打开时重新应用保护设置 #

因为UserInterfaceOnly参数不会保存到工作簿中，每次打开工作簿都需要重新设置。打开ThisWorkbook模块，添加以下代码：

Private Sub Workbook_Open()
    ' 每次打开工作簿时重新设置保护
    Sheet1.Protect Password:="password", UserInterfaceOnly:=True
End Sub

结合方案1使用，能确保宏在任何情况下都能正常执行。

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