如何设置Excel VBA定时自动保存仅在工作簿打开时生效

你当前的代码没有在工作簿关闭时注销已注册的Application.OnTime定时任务，Excel会在程序层面保留该任务的调度记录，到达预设时间后会自动触发宏执行——如果此时目标工作簿已关闭，Excel会自动重新打开该工作簿来运行宏，就会出现你说的反复自动打开保存的问题。

Application.OnTime取消定时任务需要精确匹配注册时传入的过程名和计划执行时间，因此需要用公共变量存储每次注册的任务执行时间，在工作簿关闭事件中主动注销待执行任务即可。

步骤1：声明公共变量存储任务执行时间 #

在你存放Save1过程的标准模块顶部，声明公共变量：

Public NextSaveTime As Date

步骤2：修改ThisWorkbook模块中的事件代码 #

打开VBA编辑器的ThisWorkbook对象模块，替换原有Workbook_Open代码，新增关闭时的任务注销逻辑：

Private Sub Workbook_Open()
    ' 初始化首次定时保存任务：1分钟后执行
    NextSaveTime = Now + TimeValue("00:01:00")
    Application.OnTime NextSaveTime, "Save1"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next ' 忽略无待执行任务时的取消报错
    ' 注销已注册的定时保存任务，Schedule:=False为取消任务的固定参数
    Application.OnTime EarliestTime:=NextSaveTime, Procedure:="Save1", Schedule:=False
    On Error GoTo 0
End Sub

步骤3：修改原有Save1过程 #

替换原有Save1代码，每次执行保存后同步更新下一次任务的执行时间：

Sub Save1()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    
    ' 注册下一轮定时保存任务，同步更新存储的执行时间
    NextSaveTime = Now + TimeValue("00:01:00")
    Application.OnTime NextSaveTime, "Save1"
End Sub

• 不要将Save1过程声明为Private，否则OnTime方法无法找到该过程会触发运行时错误。
• 必须用变量精确存储每次注册的NextSaveTime，OnTime不支持仅通过过程名批量取消定时任务，时间参数不匹配会导致取消失败。
• 错误捕获On Error Resume Next是必要的，可覆盖刚打开工作簿未到首次执行时间就关闭、任务已执行完成无待调度任务等边界场景，避免关闭工作簿时弹出报错。

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