共享工作簿只读版本无法同步可编辑版本已保存更改问题

直接调用Workbook.Open重新打开无法刷新内容，主要是Excel缓存、当前工作簿未关闭或文件锁定导致的，以下是可行的修改方案：

核心思路 #

• 必须先关闭当前显示的只读工作簿，再重新打开最新版本
• 加入错误处理，避免电脑A保存时的文件锁定冲突
• 取消重复的定时任务，防止程序混乱

修改后的宏代码 #

Dim nextUpdateTime As Date

' 工作簿打开时触发，仅只读模式启动定时更新
Sub Auto_Open()
    If ThisWorkbook.ReadOnly Then
        ScheduleNextUpdate
    End If
End Sub

' 设定下一次更新时间
Sub ScheduleNextUpdate()
    nextUpdateTime = Now + TimeValue("00:00:10")
    Application.OnTime nextUpdateTime, "RefreshWorkbook"
End Sub

' 刷新工作簿核心逻辑
Sub RefreshWorkbook()
    Dim wbFullPath As String
    wbFullPath = ThisWorkbook.FullName
    
    ' 先取消已设定的定时任务，避免重复触发
    On Error Resume Next
    Application.OnTime nextUpdateTime, "RefreshWorkbook", , False
    On Error GoTo 0
    
    ' 尝试关闭当前只读工作簿
    On Error Resume Next
    ThisWorkbook.Close SaveChanges:=False
    If Err.Number <> 0 Then
        ' 关闭失败，直接安排下一次重试
        ScheduleNextUpdate
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 尝试打开最新版本的只读工作簿
    On Error Resume Next
    Workbooks.Open Filename:=wbFullPath, ReadOnly:=True
    If Err.Number <> 0 Then
        ' 打开失败（比如文件被电脑A锁定），10秒后重试
        ScheduleNextUpdate
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 重新安排下一次更新
    ScheduleNextUpdate
End Sub

额外注意事项 #

• 确保电脑B对共享驱动器有读取权限，能访问到最新保存的文件
• 如果更新频率需要调整，修改TimeValue("00:00:10")中的数值即可（格式为小时:分钟:秒）
• 若Excel提示宏被禁用，需要在信任中心启用宏，并将共享文件夹添加到信任位置

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