Excel工作簿被他人占用时只读打开关闭后自动重启问题排查

问题根因 #

1. 计时器未正确存储调度时间，关闭时无法正常取消
   你代码中定义了公共变量RunTime用于存储计时器的调度时间，但实际每次调用Application.OnTime调度下一次Form_Timer执行时，从未将生成的时间戳赋值给RunTime。BeforeClose事件执行取消计时器的逻辑时，RunTime为空或是无效历史值，取消操作完全不生效，计时器会按原定时间触发。而Excel在计时器触发时如果发现目标工作簿已关闭，会自动重新打开工作簿执行指定宏，这是自动重启的核心原因。

2. 只读场景下的保存报错干扰关闭流程
   无写入权限的用户打开文件时，Form_Timer中的闲置超时逻辑会调用ThisWorkbook.Save，而BeforeSave事件会直接取消保存操作，同时可能抛出未捕获的异常，干扰后续Workbook.Close的执行流程，甚至导致BeforeClose事件未正常触发，计时器更不可能被取消。

3. 重复调度的计时器未被清理
   Form_Timer末尾尝试取消前一次计时器的代码同样使用了未赋值的RunTime变量，旧的计时器未被清理，可能同时存在多个待触发的计时器，进一步提升了关闭后触发重启的概率。

修复方案 #

1. 修正计时器调度的变量赋值 #

修改Form_Timer末尾的计时器调度代码，将下一次执行时间存储到RunTime变量：

On Error Resume Next
' 取消前一次计时器
Application.OnTime RunTime, "Form_Timer", Schedule:=False
On Error GoTo 0
' 调度下一次计时器，同时存储时间到RunTime
RunTime = Now + TimeSerial(0, 0, 5)
Application.OnTime RunTime, "Form_Timer"

2. 优化只读场景下的关闭逻辑 #

修改Form_Timer里的闲置超时关闭逻辑，增加权限判断和只读判断，避免无效保存：

If tme >= tid Then
    Application.DisplayAlerts = False
    ' 仅有权限的非只读用户才执行保存
    If lista.Exists(UCase(Environ("UserName"))) And Not ThisWorkbook.ReadOnly Then
        ThisWorkbook.Save
    End If
    ' 关闭时直接指定不保存，避免弹出保存提示干扰流程
    ThisWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
End If

3. 增强BeforeClose的鲁棒性 #

给BeforeClose事件增加异常捕获逻辑，同时补充卸载用户窗体的操作，避免未关闭的窗体阻止工作簿正常退出：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    ' 尝试卸载可能打开的用户窗体
    Unload UserForm2
    ' 尝试取消当前计时器
    If Not IsEmpty(RunTime) Then
        Application.OnTime RunTime, "Form_Timer", Schedule:=False
    End If
    Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = True
    On Error GoTo 0
End Sub

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