Excel VBA：ChangeFileAccess切换读写模式后宏中断，如何继续执行？

问题代码 #

If ActiveWorkbook.ReadOnly = True Then
    Application.DisplayAlerts = False
    ThisWorkbook.Saved = True
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
End If

问题描述 #

执行上述代码切换工作簿到读写模式后，宏直接停止运行，调试器无法继续执行后续代码（比如消息框）。根据微软官方备注：

If you have a file open in read-only mode, you don't have exclusive access to the file. If you change a file from read-only to read/write, Microsoft Excel must load a new copy of the file to ensure that no changes were made while you had the file open as read-only.

切换模式时Excel会重新加载文件副本，导致当前运行的宏被中断。尝试通过WorkbookOpen()事件触发后续代码，但该事件并未触发，目前无法完成“切换编辑模式→修改内容→保存→切回只读”的完整流程。

复现步骤 #

1. 创建工作簿，在WorkbookOpen()中添加ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly，使其始终以只读模式打开；
2. 添加两个按钮，分别绑定“登录”和“登出”宏；
3. 登录宏包含ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite及后续消息框；
4. 登出宏包含ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly及后续消息框。

需求 #

实现多用户同时访问文件，仅特定用户可修改，需完成完整的“切换编辑→修改→保存→切回只读”宏流程。

解决方案 #

方案1：使用Application.OnTime延迟触发后续代码 #

利用延迟执行机制，在切换模式前将后续任务安排到Excel重新加载文件后执行：

' 登录按钮绑定的宏
Sub LoginMacro()
    If ActiveWorkbook.ReadOnly Then
        Application.DisplayAlerts = False
        ThisWorkbook.Saved = True
        ' 1秒后触发后续操作
        Application.OnTime Now + TimeValue("00:00:01"), "AfterLogin"
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
        Application.DisplayAlerts = True
    End If
End Sub

' 切换到读写模式后执行的逻辑
Sub AfterLogin()
    MsgBox "已进入编辑模式，可进行修改操作"
    ' 示例：修改内容并保存
    ' ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "已编辑"
    ' ThisWorkbook.Save
    ' 完成后触发登出逻辑
    ' Application.OnTime Now + TimeValue("00:00:01"), "LogoutMacro"
End Sub

' 登出按钮绑定的宏
Sub LogoutMacro()
    If Not ActiveWorkbook.ReadOnly Then
        Application.DisplayAlerts = False
        ThisWorkbook.Saved = True
        Application.OnTime Now + TimeValue("00:00:01"), "AfterLogout"
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
        Application.DisplayAlerts = True
    End If
End Sub

' 切换到只读模式后执行的逻辑
Sub AfterLogout()
    MsgBox "已回到只读模式"
End Sub

方案2：使用自定义文档属性传递状态 #

通过自定义文档属性标记需要执行的后续操作，在工作簿激活时读取标记并执行对应逻辑：

' 登录按钮绑定的宏
Sub LoginMacro()
    If ActiveWorkbook.ReadOnly Then
        Application.DisplayAlerts = False
        ThisWorkbook.Saved = True
        
        ' 设置自定义属性标记登录后操作
        On Error Resume Next
        ThisWorkbook.CustomDocumentProperties.Delete "PostAction"
        On Error GoTo 0
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="PostAction", LinkToContent:=False, _
            Type:=msoPropertyTypeString, Value:="LoginDone"
            
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
        Application.DisplayAlerts = True
    End If
End Sub

' 登出按钮绑定的宏
Sub LogoutMacro()
    If Not ActiveWorkbook.ReadOnly Then
        Application.DisplayAlerts = False
        ThisWorkbook.Saved = True
        
        ' 设置自定义属性标记登出后操作
        On Error Resume Next
        ThisWorkbook.CustomDocumentProperties.Delete "PostAction"
        On Error GoTo 0
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="PostAction", LinkToContent:=False, _
            Type:=msoPropertyTypeString, Value:="LogoutDone"
            
        ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
        Application.DisplayAlerts = True
    End If
End Sub

' 在ThisWorkbook模块中添加激活事件
Private Sub Workbook_Activate()
    Dim actionProp As DocumentProperty
    On Error Resume Next
    Set actionProp = ThisWorkbook.CustomDocumentProperties("PostAction")
    On Error GoTo 0
    
    If Not actionProp Is Nothing Then
        Select Case actionProp.Value
            Case "LoginDone"
                MsgBox "已进入编辑模式"
                ' 执行修改、保存逻辑
                ' ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "编辑完成"
                ' ThisWorkbook.Save
            Case "LogoutDone"
                MsgBox "已回到只读模式"
        End If
        ' 清除标记
        ThisWorkbook.CustomDocumentProperties.Delete "PostAction"
    End If
End Sub

原理说明 #

切换读写模式时Excel会加载新的文件副本，当前运行的宏进程会被终止，因此无法在同一个宏中直接编写切换后的代码。上述两种方案均通过“提前预设后续任务”的方式，让新加载的工作簿实例执行剩余逻辑，从而完成完整流程。

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