如何让VBA在受保护工作表运行宏且代码不存密码？防解锁后出错风险

一、无需硬编码密码的实现方式 #

方法1：用UserInterfaceOnly参数（首推） #

给工作表设置保护时加上UserInterfaceOnly:=True，这会让工作表仅在用户操作层面受保护，VBA代码可以直接读写、修改工作表内容，不需要提前解锁。

注意：这个设置在工作簿关闭后会失效，所以最好把初始化代码放在ThisWorkbook的Workbook_Open事件里，每次打开工作簿自动生效：

' 放在ThisWorkbook模块中
Private Sub Workbook_Open()
    ' 保护Sheet1，开启用户界面仅保护模式
    ThisWorkbook.Worksheets("Sheet1").Protect _
        Password:="你的密码", _
        UserInterfaceOnly:=True
End Sub

' 之后直接写修改逻辑，不用解锁/重保护
Sub ModifySheetDirectly()
    ThisWorkbook.Worksheets("Sheet1").Range("A1").FormulaR1C1 = "Changed"
End Sub

这个方案最省心，完全省去了解锁步骤，从根源避免了“解锁后出错导致工作表未保护”的风险。

方法2：让用户输入密码（不存明文） #

如果不想用UserInterfaceOnly，可以通过输入框让用户手动输入密码，代码里不保留明文：

Sub ModifyWithUserInputPwd()
    Dim userPwd As String
    userPwd = InputBox("请输入工作表保护密码：")
    
    ' 解锁
    ThisWorkbook.Worksheets("Sheet1").Unprotect Password:=userPwd
    
    ' 修改操作
    ThisWorkbook.Worksheets("Sheet1").Range("A1").FormulaR1C1 = "Changed"
    
    ' 重新保护
    ThisWorkbook.Worksheets("Sheet1").Protect Password:=userPwd
End Sub

二、解决解锁后出错导致工作表未保护的问题 #

如果必须用解锁-修改-重保护的流程，一定要加错误捕获机制，确保无论代码执行过程中是否出错，最后都会重新保护工作表。

示例代码（用On Error GoTo的错误处理）：

Sub SafeModifySheet()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Dim wasProtected As Boolean
    
    ' 先记录工作表原本是否处于保护状态
    wasProtected = ws.ProtectContents
    
    ' 如果原本是保护状态，先解锁
    If wasProtected Then
        ws.Unprotect Password:="你的密码" ' 或者替换成InputBox获取密码
    End If
    
    ' 开启错误捕获，出错就跳转到Cleanup标签执行重保护
    On Error GoTo Cleanup
    
    ' 这里写你的修改操作
    ws.Range("A1").FormulaR1C1 = "Changed"
    ' 其他可能出错的操作也放在这里
    
Cleanup:
    ' 不管有没有错误，都恢复原本的保护状态
    If wasProtected Then
        ws.Protect Password:="你的密码"
    End If
    ' 清除错误状态
    On Error GoTo 0
End Sub

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