Excel VBA：工作簿保存时动态更新单元格状态，解决重复保存问题

我现有一个宏，可提示用户自上次保存工作簿以来已过去的时长（帮助用户判断何时需再次保存），运行效果良好。现需实现以下功能：
当用户保存文件时，在保存过程中将Sheet4.Range("b3")的值改为“Saving...”，保存完成后改为“Saved”（文件保存需耗时数秒）。

最初尝试的代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheet4.Range("b3").Value = "Saving..."
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Sheet4.Range("b3").Value = "Saved"
End Sub

存在问题：AfterSave事件触发修改单元格值后，文件已保存，若用户刚保存就关闭文件，会提示需再次执行保存操作，造成冗余。

尝试的改进代码（无效）：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Sheet4.Range("b3").Value = "Saving..."
   Application.ScreenUpdating = False
   Sheet4.Range("b3").Value = "Saved"
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
   Application.ScreenUpdating = True
End Sub

存在问题：关闭屏幕更新后，单元格值在保存执行前就已变为“Saved”，无法实现保存过程中显示“Saving...”的需求。

解决方案 #

核心思路是在AfterSave事件中修改单元格时，暂时禁用Excel的事件触发，避免单元格修改触发新的保存相关事件，同时确保保存过程中状态正确显示。

修改后的代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 保存开始前设置状态为Saving...
    Sheet4.Range("b3").Value = "Saving..."
    ' 强制刷新屏幕，确保状态及时显示
    DoEvents
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    If Success Then ' 仅当保存成功时更新状态
        ' 禁用事件，避免修改单元格触发新的保存操作
        Application.EnableEvents = False
        Sheet4.Range("b3").Value = "Saved"
        ' 重新启用事件
        Application.EnableEvents = True
    Else
        ' 保存失败时恢复状态（可选）
        Sheet4.Range("b3").Value = "Save Failed"
    End If
End Sub

代码说明

• DoEvents用于强制Excel刷新屏幕，确保“Saving...”状态在保存操作执行前就显示出来，避免因Excel缓存导致状态不及时更新。
• Application.EnableEvents = False在修改单元格前禁用事件，此时修改单元格不会触发任何Excel事件（包括可能触发的保存相关事件），修改完成后重新启用事件，彻底消除修改后需要再次保存的提示。
• 增加Success判断，可在保存失败时给出对应提示，提升用户体验。

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