Excel VBA：避免循环，在工作表C1单元格显示工作簿保存状态

核心解决方案 #

通过判断触发事件的目标单元格是否为C1，结合临时禁用事件的方式，彻底阻断循环触发路径：

完整代码实现 #

1. 保存状态更新过程（可放在标准模块或目标工作表模块）

Sub SaveStatus()
    ' 临时禁用事件，防止修改C1时触发Worksheet_Change
    Application.EnableEvents = False
    
    ' 根据工作簿保存状态更新C1内容
    If ThisWorkbook.Saved Then
        ActiveSheet.Range("C1").Value = "已保存（Saved）"
    Else
        ActiveSheet.Range("C1").Value = "未保存（Not Saved）"
    End If
    
    ' 恢复事件触发，不影响后续正常操作
    Application.EnableEvents = True
End Sub

2. 工作表变更事件（必须写在目标工作表的模块中）

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 若触发事件的单元格是C1，直接退出，不执行后续逻辑
    If Not Intersect(Target, Me.Range("C1")) Is Nothing Then
        Exit Sub
    End If
    
    ' 调用更新状态的过程
    SaveStatus
End Sub

方案生效逻辑 #

• 当修改非C1单元格时，触发Worksheet_Change事件，此时调用SaveStatus时已禁用事件，修改C1不会再次触发事件
• 若手动修改C1或因其他操作触发C1的变更事件，代码会直接判断并退出，不会调用SaveStatus，从根源避免循环
• 之前单独使用EnableEvents=False无效，大概率是因为没有添加Target判断，导致C1的变更仍会触发事件进入循环

注意事项 #

• 确保Worksheet_Change事件代码位于对应的工作表模块（而非标准模块）
• 若同时修改多个单元格，只要变更范围包含C1，事件就会直接退出，避免意外循环
• 测试时可修改其他单元格验证C1状态更新，手动修改C1不会引发报错

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