如何在执行撤销操作时阻止Workbook_SheetChange事件触发？

Excel没有提供原生的事件参数用来标识当前SheetChange触发是否来自撤销操作，可通过标记拦截的方式实现需求，以下是两种经过验证的可行方案：

方案1：全局标记+拦截撤销入口（准确率100%，推荐使用） #

核心逻辑是在所有触发撤销操作的入口提前打标记，事件触发时识别到标记就跳过自定义采集逻辑，完全不影响原有撤销功能：

• 第一步：在ThisWorkbook模块的所有过程外部声明模块级布尔变量，用来标记当前是否处于撤销流程中

' 写在ThisWorkbook模块最顶部
Private isUndoing As Boolean

• 第二步：改造原有Workbook_SheetChange事件，开头增加标记判断

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 撤销流程触发的事件直接退出，不执行采集逻辑
    If isUndoing Then Exit Sub
    
    ' 以下保留你原有的信息采集代码即可，不需要做其他修改
    ' ......
End Sub

• 第三步：拦截所有撤销操作的触发入口，在执行原生撤销前后切换标记状态
  首先在ThisWorkbook的Workbook_Open事件中，把所有撤销入口的触发动作绑定到自定义过程：

Private Sub Workbook_Open()
    ' 拦截Ctrl+Z快捷键
    Application.OnKey "^z", "DoCustomUndo"
    ' 拦截顶部工具栏的撤销按钮，注意多语言版本要替换为对应语言的控件名称
    Application.CommandBars("Standard").Controls("撤销(&U)").OnAction = "DoCustomUndo"
    ' 如需拦截右键菜单的撤销项，补充对应CommandBar控件的OnAction绑定即可，逻辑一致
End Sub

然后插入一个标准模块，在模块中写自定义撤销过程：

Sub DoCustomUndo()
    On Error Resume Next
    ' 标记进入撤销流程
    ThisWorkbook.isUndoing = True
    ' 执行Excel原生撤销操作
    Application.Undo
    ' 撤销完成，重置标记
    ThisWorkbook.isUndoing = False
    On Error GoTo 0
End Sub

• 注意事项：如果需要兼容工作簿打开前就存在的撤销栈，可以在Workbook_Open事件里先记录一次初始撤销栈状态，避免首次撤销漏判。

方案2：撤销栈标题比对（轻量无绑定，适合简单场景） #

如果不想修改快捷键和工具栏绑定，可以利用撤销按钮的标题变化做判断：每次非撤销触发的SheetChange执行完成后，记录当前工具栏撤销按钮的Caption文本，下次事件触发时先比对当前撤销按钮的Caption，如果和上次记录的一致，说明本次触发来自撤销操作，直接跳过逻辑即可。
这个方案不需要额外绑定入口，但是存在小概率误判：如果用户连续执行两次完全相同的单元格修改，两次操作对应的撤销按钮标题一致，会导致第二次正常修改被误判为撤销，适合对准确率要求不高的场景使用。

避坑提醒：不要图省事直接在SheetChange事件里开关Application.EnableEvents，如果代码运行中途报错没有触发重置，会导致整个Excel的事件响应全部失效，直到重启应用才能恢复，且这种方式会屏蔽所有事件触发，不是仅屏蔽撤销导致的事件，不推荐使用。

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