Excel宏定时保存异常：无限循环致工作簿锁定求助

你的代码问题出在Application.Wait是阻塞式等待，加上递归调用Macro3会让Excel一直卡在宏执行流程里，完全无法响应用户的扫描、编辑操作，直接锁死工作簿。要实现不影响交互的自动保存循环，得用Excel的Application.OnTime异步定时功能，它不会阻塞Excel的事件循环，用户正常操作不受影响。

修正后的完整代码 #

' 全局变量，保存下一次自动保存的时间，方便后续取消定时
Public NextSaveTime As Date

Sub StartAutoSaveLoop()
    ' 立即执行一次保存
    SaveCurrentWorkbook
    ' 设置5分钟后再次触发保存（把"00:05:00"改成你要的间隔）
    ScheduleNextSave
End Sub

Sub SaveCurrentWorkbook()
    On Error Resume Next ' 捕获保存错误，比如文件被占用
    ' 用ThisWorkbook确保是当前工作簿，避免切换到其他工作簿时出错
    ThisWorkbook.Save
    If Err.Number <> 0 Then
        ' 可按需添加错误提示，比如MsgBox "保存失败：" & Err.Description
        Err.Clear
    End If
    On Error GoTo 0
End Sub

Sub ScheduleNextSave()
    ' 设置下一次保存的时间
    NextSaveTime = Now + TimeValue("00:05:00")
    ' 异步定时触发保存和重调度
    Application.OnTime EarliestTime:=NextSaveTime, Procedure:="SaveAndReschedule", Schedule:=True
End Sub

Sub SaveAndReschedule()
    ' 执行保存
    SaveCurrentWorkbook
    ' 继续设置下一次定时
    ScheduleNextSave
End Sub

' 可选：停止自动保存循环的宏
Sub StopAutoSaveLoop()
    On Error Resume Next
    Application.OnTime EarliestTime:=NextSaveTime, Procedure:="SaveAndReschedule", Schedule:=False
    On Error GoTo 0
End Sub

使用说明 #

1. 把代码粘贴到工作簿的ThisWorkbook模块或标准模块中
2. 执行StartAutoSaveLoop宏，会立即保存一次，之后每5分钟自动保存一次
3. 如需停止自动循环，执行StopAutoSaveLoop宏即可

关键细节说明 #

• Application.OnTime是异步执行的，定时期间用户可正常扫描条码、编辑内容，完全不会锁死工作簿
• 用ThisWorkbook代替ActiveWorkbook，防止切换到其他Excel文件时误保存
• 加入错误捕获，避免保存失败（比如网络备份时文件被占用）导致宏中断
• 全局变量NextSaveTime记录下一次定时时间，方便随时停止循环

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