VBA接入代码优化逻辑后Worksheet_Change事件无法触发问题求助

核心触发链路 #

所有Worksheet_Change事件失效的根本原因是Excel应用级的事件总开关Application.EnableEvents被永久卡在关闭状态。
这个开关是全局生效的，一旦被设为False，当前Excel进程内所有工作表、工作簿的事件（包括Change、SelectionChange、Open等）都不会被触发，和你写的事件代码本身是否正确无关。
你接入的优化逻辑在执行开头就将事件总开关临时设为False，但因为后续代码存在中断点，永远没机会把开关恢复为原有值，直接导致全局事件失效。

逐行排查到的代码硬伤 #

• 业务事件代码存在多处语法/运行时错误，一旦运行中断，根本走不到恢复设置的步骤：
  • LastPopulatedRow = Sheets("Sheet1").Range.("B" & Rows.Count).End(xlUp).Rows：Range后多了冗余点号，且取行对象.Rows无法赋值给长整型变量，应为取行号属性.Row
  • Sheets.("Sheet2").Range("C4:C" & LastPopulatedRow0.FillDown：Sheets后多了冗余点号，变量名错写为LastPopulatedRow0，Range对象的括号未闭合，语法完全不成立
  • Call Sub OptimizeCode-End：Call关键字后不能加Sub，过程名错写为带连字符的OptimizeCode-End（VBA会将连字符识别为减号，直接触发编译错误）
• 原有优化子过程的设计缺陷：
  • 恢复设置的代码没有做任何错误兜底，不管是业务代码报错、调试中断、还是恢复环节本身出错，都会直接终止执行，导致EnableEvents卡在关闭状态
  • 代码直接读取ActiveSheet的分页符状态，若执行优化逻辑时激活的是非工作表对象（如图表、宏表），会直接抛错中断，同样卡在恢复环节
  • 恢复逻辑没有优先级排序：哪怕你能走到恢复步骤，EnableEvents的恢复代码放在了最后面，只要前面的恢复步骤（比如改分页符、改计算模式）报错，还是会没机会把事件开关打开

1. 紧急解锁全局事件开关
   按Alt+F11打开VBA编辑器，按Ctrl+G调出立即窗口，输入Application.EnableEvents = True按回车执行。这一步可以立刻解除全局事件锁死状态，不需要重启Excel。
2. 重构优化逻辑，增加错误兜底
   把优化逻辑移动到标准模块中，修正ActiveSheet的引用风险，将事件开关的恢复逻辑放在所有恢复步骤的最前面，搭配统一的错误捕获，保证哪怕代码运行报错，也一定会把事件开关恢复：

   ' 标准模块中定义的全局变量
   Public CalcState As XlCalculation
   Public EventState As Boolean
   Public PageBreakState As Boolean
   Public OptTargetSheet As Worksheet
   
   Sub OptimizeCode_Begin()
       ' 先记录原有事件开关状态
       EventState = Application.EnableEvents
       Application.EnableEvents = False
       
       ' 记录原有计算模式
       CalcState = Application.Calculation
       Application.Calculation = xlCalculationManual
       
       ' 仅在当前激活对象是工作表时，记录分页符状态，避免报错
       If TypeName(ActiveSheet) = "Worksheet" Then
           Set OptTargetSheet = ActiveSheet
           PageBreakState = OptTargetSheet.DisplayPageBreaks
           OptTargetSheet.DisplayPageBreaks = False
       End If
       
       Application.ScreenUpdating = False
   End Sub
   
   Sub OptimizeCode_End()
       ' 优先恢复最关键的事件开关，哪怕后续步骤报错也不影响
       On Error Resume Next
       Application.EnableEvents = EventState
       Application.Calculation = CalcState
       Application.ScreenUpdating = True
       
       ' 最后恢复分页符设置
       If Not OptTargetSheet Is Nothing Then
           OptTargetSheet.DisplayPageBreaks = PageBreakState
           Set OptTargetSheet = Nothing
       End If
       On Error GoTo 0
   End Sub
   

3. 修正原有事件代码，增加错误兜底
   修正所有语法错误，搭配统一的错误跳转逻辑，保证代码不管是正常执行完，还是中途报错，都一定会触发优化结束的恢复步骤：

   Option Explicit
   Private Sub Worksheet_Change(ByVal Target As Range)
       Dim LastPopulatedRow As Long
       ' 定义错误跳转，任何环节报错都走到恢复流程
       On Error GoTo ErrHandler
       
       Call OptimizeCode_Begin
       
       ' 修正语法错误，正确获取最后一行行号
       LastPopulatedRow = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row
       
       ' 修正语法错误，正确调用FillDown
       Sheets("Sheet2").Range("C4:C" & LastPopulatedRow).FillDown
       
   ExitHandler:
       Call OptimizeCode_End
       Exit Sub
   ErrHandler:
       MsgBox "运行出错：" & Err.Description
       Resume ExitHandler
   End Sub
   

• 所有涉及修改Excel全局设置的代码（包括关事件、关屏幕更新、改计算模式），必须搭配On Error错误捕获，且将恢复全局设置的逻辑放在独立的统一出口，禁止把恢复代码只写在正常执行路径的最后一行
• 不要把ActiveSheet作为跨环节引用的固定对象，需要记录对象引用时，用独立的变量存下来，避免运行过程中激活的工作表变化导致引用错误

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