现有VBA程序遇错密码即终止，如何实现自动尝试三密码解锁Excel工作表？

当前代码设置完全不合理——单次密码失败就终止运行的逻辑完全浪费了VBA的自动化优势，手动拖动执行纯属于重复劳动，必须优化。

当然可以实现自动依次尝试三个密码的逻辑，核心思路是利用错误捕获机制，逐个尝试密码，失败后跳过错误继续试下一个，直到成功或所有密码尝试完毕。

实现代码示例 #

假设你的目标工作表名为"目标工作表"，三个密码存在数组里，修改后的核心逻辑如下：

Sub 批量解锁工作表并修改()
    Dim 目标工作表 As Worksheet
    Dim 密码数组 As Variant
    Dim 当前密码 As Variant
    Dim 解锁成功 As Boolean
    
    ' 定义三个可选密码
    密码数组 = Array("密码1", "密码2", "密码3")
    解锁成功 = False
    
    ' 假设你已经打开了目标Excel文件，这里获取目标工作表
    Set 目标工作表 = ActiveWorkbook.Worksheets("目标工作表")
    
    ' 逐个尝试密码
    For Each 当前密码 In 密码数组
        On Error Resume Next ' 开启错误捕获，密码错误时跳过报错
        目标工作表.Unprotect Password:=当前密码
        On Error GoTo 0 ' 关闭错误捕获
        
        ' 检查是否解锁成功（判断工作表ProtectContents属性是否为False）
        If Not 目标工作表.ProtectContents Then
            解锁成功 = True
            Exit For ' 成功解锁，退出循环
        End If
    Next 当前密码
    
    ' 根据解锁结果执行后续操作
    If 解锁成功 Then
        ' 这里写你的修改操作代码
        MsgBox "工作表解锁成功，开始执行修改"
    Else
        MsgBox "三个密码都尝试失败，无法解锁工作表"
        ' 可以在这里添加跳过当前文件、继续下一个的逻辑
        Exit Sub
    End If
    
    ' ... 后续的修改操作代码 ...
End Sub

关键逻辑说明 #

1. 错误捕获：用On Error Resume Next临时屏蔽密码错误的报错，避免程序直接终止；尝试完一个密码后用On Error GoTo 0恢复正常错误处理，防止后续代码的错误被忽略。
2. 解锁验证：通过工作表.ProtectContents属性判断是否解锁成功——如果返回False，说明工作表已解除保护。
3. 循环终止：一旦找到正确密码，立即退出循环，避免不必要的尝试。

额外优化建议 #

• 如果是打开文件时的密码（不是工作表保护密码），可以把打开文件的逻辑也套进循环里，用Workbooks.Open的Password参数逐个尝试。
• 批量处理文件时，建议把“打开文件-尝试解锁-修改-保存关闭”的逻辑封装成独立过程，代码更清晰。

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