调用Application.OnTime后Excel加载项全局双击事件处理失效求助

• OnTime执行上下文的重置问题
  Application.OnTime会在独立的执行上下文中运行，这个过程可能会意外解除加载项的全局事件绑定，哪怕手动设置Application.EnableEvents = True也无法恢复事件关联。
  解决：在OnTime调用的子过程末尾，重新初始化你的全局事件处理逻辑。比如如果是通过类模块绑定的应用级事件，就重新完成类实例与Application对象的绑定操作。

• 类实例被垃圾回收
  如果你的全局事件是借助类模块（声明WithEvents App As Excel.Application）实现的应用级事件监听，OnTime执行后，Excel的垃圾回收机制可能会回收这个类的实例，导致事件监听失效。
  解决：在标准模块中声明该类的全局变量（避免放在过程内部），并在OnTime的执行过程中显式检查实例状态，必要时重新初始化：

' 标准模块中的全局变量
Public g_AppEventHandler As clsAppEvents

' OnTime调用的子过程
Sub ScheduledTask()
    ' 你的业务逻辑代码
    ' ...
    
    ' 检查并重新绑定事件
    If g_AppEventHandler Is Nothing Then
        Set g_AppEventHandler = New clsAppEvents
        Set g_AppEventHandler.App = Application
    End If
End Sub

• EnableEvents状态未正确刷新
  有时候OnTime执行时，Excel内部的事件状态处于锁定状态，单纯设置Application.EnableEvents = True无法生效。可以尝试先关闭再开启事件，强制刷新状态：

Sub ScheduledTask()
    ' 业务代码
    ' ...
    
    ' 强制刷新事件状态
    Application.EnableEvents = False
    Application.EnableEvents = True
    
    ' 重新初始化全局事件（如果需要）
    ReinitGlobalEvents
End Sub

• 重复OnTime任务的冲突
  如果是循环调用的OnTime任务，未正确取消旧任务就创建新任务，可能导致上下文冲突影响事件监听。建议每次设置新任务前先取消旧任务：

' 标准模块中保存OnTime的时间和过程名
Public g_NextRunTime As Date
Public g_TaskProcName As String

Sub SetScheduledTask()
    ' 取消之前的任务（避免重复）
    On Error Resume Next
    Application.OnTime EarliestTime:=g_NextRunTime, Procedure:=g_TaskProcName, Schedule:=False
    On Error GoTo 0
    
    ' 设置新的定时任务
    g_NextRunTime = Now + TimeValue("00:01:00")
    g_TaskProcName = "ScheduledTask"
    Application.OnTime EarliestTime:=g_NextRunTime, Procedure:=g_TaskProcName
End Sub

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