Application.OnTime未取消致手动关闭后工作簿后台运行的问题求助

你的问题根源在于Application.OnTime是注册到Excel应用程序级的任务，而非工作簿级——哪怕你关闭了目标工作簿，这个定时任务依然会留在Excel进程中，到时间就会触发CloseWB宏，而因为宏关联的工作簿已经关闭，Excel会自动重新打开它来执行代码，导致后台残留进程。

要解决这个问题，核心是在手动关闭工作簿时显式取消之前注册的OnTime任务，同时确保自动关闭时也清理任务，避免循环触发。下面是完整的修改方案：

步骤1：重构标准模块代码，改用模块级变量管理定时时间 #

把原来的过程级静态变量Static EndTime改成标准模块的模块级变量，同时新增取消任务的通用方法，方便在多个场景调用：

' 标准模块（比如Module1）中的代码
Private EndTime As Date

Sub RunTime()
    ' 先取消已存在的定时任务，避免重复注册
    CancelOnTimeTask
    
    ' 设置新的10分钟后自动关闭时间
    EndTime = Now + TimeValue("00:10:00")
    Application.OnTime EarliestTime:=EndTime, Procedure:="CloseWB", Schedule:=True
End Sub

Sub CloseWB()
    Application.DisplayAlerts = False
    
    ' 自动关闭前先取消定时任务，防止后续触发
    CancelOnTimeTask
    
    ' 保存并关闭当前工作簿
    With ThisWorkbook
        .Save
        .Close
    End With
    
    Application.DisplayAlerts = True
End Sub

' 通用方法：取消已注册的OnTime任务
Private Sub CancelOnTimeTask()
    If EndTime <> 0 Then
        ' 加错误处理，避免任务已被取消时抛出错误
        On Error Resume Next
        Application.OnTime EarliestTime:=EndTime, Procedure:="CloseWB", Schedule:=False
        On Error GoTo 0
        
        ' 重置定时时间变量
        EndTime = 0
    End If
End Sub

步骤2：在工作簿关闭事件中取消定时任务 #

打开ThisWorkbook的代码窗口，添加BeforeClose事件处理——这样用户手动关闭工作簿时，会自动取消之前注册的定时任务，彻底切断后续触发的可能：

' ThisWorkbook代码窗口中的代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 调用标准模块中的取消任务方法
    CancelOnTimeTask
End Sub

关键逻辑说明 #

1. 模块级变量替代静态变量：原来的Static EndTime只能在RunTime过程内部访问，无法在工作簿关闭事件中获取，改用模块级变量后，所有模块内的过程（以及通过公共方法调用的外部事件）都能访问并取消任务。
2. 显式取消OnTime任务：无论是重新注册定时、自动关闭还是手动关闭工作簿，都先调用CancelOnTimeTask清理已有的任务，避免任务残留。
3. 错误处理：在取消任务时加入On Error Resume Next，防止因为任务已经被取消（比如重复调用取消方法）而抛出运行时错误。

这样修改后，手动关闭工作簿时会彻底取消定时任务，不会再出现后台残留进程、到时间自动打开的问题，同时也不会影响用户打开的其他工作簿。

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