如何强制Excel工作表打开时启用手动计算，不受其他工作表设置影响？

这个坑我之前踩过！Excel的Application.Calculation是应用程序级别的全局设置，不是单个工作簿独有的——也就是说，只要同一个Excel实例里打开了多个工作簿，所有文件都会共享这个计算模式。这就是为啥你之前有其他工作簿打开时，你的代码好像“失效”了：要么是全局设置被之前的工作簿锁定，要么是你的代码只在打开时执行了一次，后续被其他操作或工作簿的代码覆盖了。

给你一套靠谱的解决方案，确保你的工作簿不管在什么情况下打开，都能强制进入手动计算模式：

1. 封装计算模式设置的通用过程 #

先写一个独立的子过程，把设置手动计算的逻辑包起来，方便重复调用，还能加错误处理：

Sub SetManualCalculation()
    ' 暂时禁用Excel事件，防止其他工作簿的代码干扰我们的设置
    Application.EnableEvents = False
    ' 错误处理：确保不管有没有出错，最后都恢复事件
    On Error GoTo Cleanup

    ' 只在当前不是手动计算时才修改，避免重复操作
    If Application.Calculation <> xlCalculateManual Then
        Application.Calculation = xlCalculateManual
        ' 可选：关闭“保存前自动计算”的默认行为（根据你的需求调整）
        Application.CalculateBeforeSave = False
    End If

Cleanup:
    ' 恢复事件触发
    Application.EnableEvents = True
    ' 如果有错误，重新抛出方便调试
    If Err.Number <> 0 Then Err.Raise Err.Number
End Sub

2. 在关键事件中调用这个过程 #

打开你的工作簿的VBA编辑器（按Alt+F11），找到ThisWorkbook模块，添加以下三个事件过程：

' 工作簿打开时触发
Private Sub Workbook_Open()
    SetManualCalculation
End Sub

' 工作簿从后台切换到前台（被激活）时触发
Private Sub Workbook_Activate()
    SetManualCalculation
End Sub

' 切换到工作簿内任意工作表时触发（可选，进一步确保计算模式不被篡改）
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    SetManualCalculation
End Sub

为什么这样有效？ #

• Workbook_Open确保工作簿刚打开时就设置一次；
• Workbook_Activate解决了“已有其他工作簿打开，切换到你的工作簿时”的场景，强制覆盖全局设置；
• Workbook_SheetActivate是额外的保险，防止用户手动切换回自动计算后，切个工作表又被强制改回来（如果不需要这个强管控，可以删掉）；
• 事件禁用和错误处理，能避免其他工作簿的VBA代码干扰你的设置。

如果还是有问题，可以检查一下：

• 你的工作簿有没有启用宏？（Excel默认会禁用宏，要确保宏被启用）
• 其他打开的工作簿有没有类似修改计算模式的VBA代码？如果有的话，可能会和你的代码“抢”全局设置，这时候可以在SetManualCalculation里加个延迟或者优先级处理（不过一般很少碰到这种极端情况）。

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