Excel循环自动保存宏仅运行一次即停止，关闭工作簿时卡顿

问题根源分析 #

你的宏出现的问题大概率是以下几个原因叠加导致：

• On Error Resume Next 会掩盖所有错误，比如凌晨保存时遇到文件锁定、权限不足或磁盘空间不够，保存失败后调度逻辑中断，后续自动保存就停了
• 关闭工作簿时，dtScheduled 变量可能因为某些原因失效，导致无法正确取消Application.OnTime任务，Excel后台还挂着调度任务，引发卡顿
• 手动运行DoSave时，若第一次保存出错，同样因为错误被掩盖，后续的ScheduleSaving不会执行，导致循环终止

修复后的代码 #

替换原有宏代码为以下版本，修复了错误掩盖和调度清理的问题：

Option Explicit

Private dtScheduled As Date

Private Sub Workbook_Open()
    ScheduleSaving
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 尝试取消所有已调度的任务
    On Error Resume Next
    Application.OnTime EarliestTime:=dtScheduled, Procedure:="ThisWorkbook.DoSave", Schedule:=False
    On Error GoTo 0
End Sub

Private Sub ScheduleSaving()
    dtScheduled = Now + TimeSerial(0, 5, 0)
    On Error Resume Next
    ' 避免重复调度
    Application.OnTime EarliestTime:=dtScheduled, Procedure:="ThisWorkbook.DoSave", Schedule:=False
    On Error GoTo 0
    Application.OnTime dtScheduled, "ThisWorkbook.DoSave"
End Sub

Sub DoSave()
    On Error GoTo SaveError
    ' 检查工作簿是否需要保存
    If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If
    ' 继续调度下一次保存
    ScheduleSaving
    Exit Sub
    
SaveError:
    ' 弹出错误提示，方便排查问题
    MsgBox "自动保存失败：" & Err.Description, vbExclamation
    ' 即使保存失败，也要继续尝试下一次调度
    ScheduleSaving
End Sub

额外排查步骤 #

• 检查工作簿所在目录的读写权限，确保Excel有保存权限
• 确认工作簿没有被其他程序（比如杀毒软件、云同步工具）锁定
• 打开Excel信任中心，确保宏已启用，且该工作簿被设为信任位置
• 手动运行一次DoSave，如果弹出错误提示，根据提示解决对应问题（比如磁盘空间不足、文件被占用）

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