多视图激活时Worksheet_Activate事件触发VBA代码失效问题

问题分析 #

单窗口下，工作表的Worksheet_Activate和Worksheet_Deactivate事件能正常控制计算模式，但多窗口（通过「视图>新建窗口」创建）切换时，这两个事件不会触发，导致计算模式卡在手动状态。直接使用Workbook_WindowActivate/WindowDeactivate无效，核心原因是这类事件需要结合当前窗口的活动工作表判断才能生效。

解决方案 #

步骤1：在工作簿模块添加全局变量与窗口事件 #

打开VBA编辑器（按Alt+F11），双击左侧面板的「ThisWorkbook」，粘贴以下代码：

Option Explicit
Private originalCalcMode As XlCalculation
Private targetSheetName As String

Private Sub Workbook_Open()
    ' 替换为你的目标工作表名称
    targetSheetName = "目标工作表名"
    ' 保存工作簿打开时的初始计算模式
    originalCalcMode = Application.Calculation
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    ' 窗口激活时，检查当前活动工作表是否为目标表
    If Wn.ActiveSheet.Name = targetSheetName Then
        originalCalcMode = Application.Calculation
        If Application.Calculation <> xlCalculationManual Then
            Application.Calculation = xlCalculationManual
        End If
    Else
        ' 非目标工作表，恢复原始计算模式
        If Application.Calculation <> originalCalcMode Then
            Application.Calculation = originalCalcMode
        End If
    End If
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    ' 窗口失活时，若当前窗口活动表是目标表，恢复计算模式
    If Wn.ActiveSheet.Name = targetSheetName Then
        If Application.Calculation <> originalCalcMode Then
            Application.Calculation = originalCalcMode
        End If
    End If
End Sub

步骤2：保留工作表模块的事件（处理单窗口内切换） #

打开目标工作表的模块（左侧面板双击目标工作表），调整原代码如下：

Option Explicit
Private Sub Worksheet_Activate()
    ' 单窗口内激活目标表时，切换为手动计算
    If Application.Calculation <> xlCalculationManual Then
        ThisWorkbook.originalCalcMode = Application.Calculation
        Application.Calculation = xlCalculationManual
    End If
End Sub

Private Sub Worksheet_Deactivate()
    ' 执行你的UDF计算逻辑
    If Range("rfRLeaveChanged") = "X" Then
        ' blah blah blah
    End If
    ' 单窗口内离开目标表时，恢复原始计算模式
    If Application.Calculation <> ThisWorkbook.originalCalcMode Then
        Application.Calculation = ThisWorkbook.originalCalcMode
    End If
End Sub

关键说明 #

• 全局变量originalCalcMode会在工作簿打开时初始化，每次切换到目标表时也会更新为当前计算模式，确保恢复时使用的是用户原本的设置。
• Workbook_WindowActivate会在所有窗口激活时触发，无论是新建窗口还是切换已有窗口，都能自动判断并切换计算模式。
• 工作表模块的事件用于处理单窗口内的工作表切换，与窗口事件形成互补，覆盖所有场景。

内容的提问来源于stack exchange，提问作者Jenny S.