VBA技术问题：密码保护文件只读状态下宏执行异常

问题根源 #

当带密码的Excel文件被其他用户打开处于只读锁定状态时，Workbooks.Open会触发强制密码验证弹窗——这个弹窗不受DisplayAlerts=False控制，直接中断宏执行，导致后续的只读判断逻辑无法运行。而无密码文件可以通过DisplayAlerts=False跳过只读提示，所以代码能正常执行。

解决方案 #

思路1：错误捕获绕过密码弹窗，直接处理打开结果 #

通过开启错误捕获，捕获文件打开失败的情况（即文件被锁定），再触发重试逻辑。修改后的代码如下：

Sub Readonlytest()
    Dim OpenAgain As Integer
    Dim targetWB As Workbook
    
DoAgain:
    ' 重置对象和错误状态
    Set targetWB = Nothing
    On Error Resume Next ' 开启错误捕获
    
    Application.DisplayAlerts = False
    ' 强制尝试以可写模式打开文件
    Set targetWB = Workbooks.Open( _
        Filename:="Path\ReadOnly Test.xlsx", _
        Password:="PW", _
        ReadOnly:=False _
    )
    Application.DisplayAlerts = True
    
    On Error GoTo 0 ' 关闭错误捕获
    
    ' 判断文件是否成功打开
    If Not targetWB Is Nothing Then
        ' 检查是否意外进入只读模式
        If targetWB.ReadOnly Then
            targetWB.Close SaveChanges:=False
            OpenAgain = MsgBox("当前有数据传输正在进行，是否等待重试或取消操作", vbYesNo)
            If OpenAgain = vbYes Then
                Application.Wait (Now + TimeValue("00:00:04"))
                GoTo DoAgain
            Else
                MsgBox "请稍后重试。"
                Exit Sub
            End If
        Else
            ' 这里添加你的数据传输逻辑
            MsgBox "文件已就绪，可进行数据传输。"
            ' 完成后关闭文件
            targetWB.Close SaveChanges:=True
        End If
    Else
        ' 文件打开失败，判定为被锁定
        OpenAgain = MsgBox("当前有数据传输正在进行，是否等待重试或取消操作", vbYesNo)
        If OpenAgain = vbYes Then
            Application.Wait (Now + TimeValue("00:00:04"))
            GoTo DoAgain
        Else
            MsgBox "请稍后重试。"
            Exit Sub
        End If
    End If
End Sub

思路2：提前检测文件锁定状态，再尝试打开 #

用文件系统对象（FSO）提前检测文件是否被其他用户占用，避免触发密码弹窗。代码示例：

Sub CheckLockBeforeOpen()
    Dim fso As Object
    Dim targetFile As Object
    Dim OpenAgain As Integer
    Dim targetWB As Workbook
    
DoAgain:
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    ' 尝试获取文件对象，若被锁定则触发70号错误
    Set targetFile = fso.GetFile("Path\ReadOnly Test.xlsx")
    On Error GoTo 0
    
    If Err.Number = 70 Then
        ' 文件被锁定，提示重试
        OpenAgain = MsgBox("当前有数据传输正在进行，是否等待重试或取消操作", vbYesNo)
        If OpenAgain = vbYes Then
            Application.Wait (Now + TimeValue("00:00:04"))
            GoTo DoAgain
        Else
            MsgBox "请稍后重试。"
            Exit Sub
        End If
    Else
        ' 文件未被锁定，正常打开并操作
        Application.DisplayAlerts = False
        Set targetWB = Workbooks.Open( _
            Filename:="Path\ReadOnly Test.xlsx", _
            Password:="PW" _
        )
        Application.DisplayAlerts = True
        
        ' 添加数据传输逻辑
        MsgBox "文件已就绪，可进行数据传输。"
        targetWB.Close SaveChanges:=True
    End If
End Sub

注意事项 #

• 错误捕获使用后要及时关闭（On Error GoTo 0），避免影响后续代码的错误处理
• 打开文件时明确指定ReadOnly:=False，强制Excel尝试以可写模式打开
• 确保密码正确，避免因密码错误导致的打开失败被误判为文件锁定

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