VBA中如何手动触发工作表的Worksheet_Activate事件？

无法调用触发Activate事件的原因 #

1. Worksheet_Activate 是工作表模块内的私有事件处理过程，默认作用域仅局限于所属工作表模块内部，外部模块（比如工具栏按钮对应的标准模块）无法直接访问调用。
2. Activate方法的本质是执行工作表激活操作，Excel仅会在工作表激活状态真实发生变更（从非激活变为激活）时，才会触发对应的Activate事件。如果你调用ActiveSheet.Activate时目标工作表已经处于激活状态，状态没有变化，事件自然不会执行。
3. 若之前代码中设置过Application.EnableEvents = False且未恢复为True，也会全局屏蔽所有事件触发，不过该场景一般会伴随其他事件也全部失效的问题。

可行解决方案 #

方案1：修改事件访问修饰符+动态调用（适配性最优） #

无需新增额外的公共方法，仅需将原有工作表中Worksheet_Activate的访问修饰符从Private改为Public，再通过CallByName动态调用当前激活工作表的对应事件即可，代码示例：

' 第一步：修改每个工作表的Activate事件定义
Public Sub Worksheet_Activate()
    MsgBox "Ran"
End Sub

' 第二步：编写工具栏按钮的点击代码
Sub ToolbarButton_Click()
    ' 动态调用当前选中工作表的Activate事件
    Call CallByName(ActiveSheet, "Worksheet_Activate", VbMethod)
End Sub

该方案改动量极小，不需要每个工作表额外新增自定义方法，也不会有多余的操作副作用。

方案2：临时切换激活对象（零侵入原有代码） #

如果不想改动已有工作表的任何代码，可以通过临时切换激活工作表的方式，强制触发目标工作表的Activate事件，全程可以关闭屏幕更新避免闪烁，代码示例：

Sub ToolbarButton_Click()
    Dim originalSheet As Worksheet
    Set originalSheet = ActiveSheet
    
    ' 处理临时工作表，不存在则自动创建隐藏的辅助表
    Dim tempSheet As Worksheet
    On Error Resume Next
    Set tempSheet = ThisWorkbook.Sheets("临时触发辅助表")
    If Err.Number <> 0 Then
        Set tempSheet = ThisWorkbook.Sheets.Add(After:=originalSheet)
        tempSheet.Name = "临时触发辅助表"
        tempSheet.Visible = xlSheetHidden
    End If
    On Error GoTo 0
    
    ' 切换激活状态触发事件
    Application.ScreenUpdating = False
    tempSheet.Activate
    originalSheet.Activate ' 该步会触发原工作表的Activate事件
    Application.ScreenUpdating = True
End Sub

该方案完全不需要修改已有工作表的代码，适合工作表数量多、改造成本高的场景。

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