如何通过VBA强制Excel始终保持自动计算模式不被切换为手动？

原有代码失效原因 #

你之前写的Workbook_Activate事件逻辑失效是必然的，核心问题有两个：

• 触发范围太窄：该事件仅在工作簿从其他程序/其他工作簿切换回当前工作簿激活状态时才会运行，用户打开文件后如果不切换窗口，直接手动把计算模式改成手动，这段代码完全不会触发
• 没有覆盖用户日常操作的高频场景，比如切换工作表、点击单元格、修改内容这些动作都不会触发原有逻辑

可落地实现方案 #

Excel的计算模式是应用级全局设置，不存在脱离VBA的原生锁死选项，要实现打开文件后始终保持自动计算，需要从「多事件绑定补全触发时机」+「强制用户启用宏」两个维度做配置：

1. 全场景VBA事件绑定 #

把以下代码全部粘贴到VBA编辑器的ThisWorkbook对象模块中，覆盖所有可能被用户修改计算模式后的触发场景，代码加了状态判断，不会造成额外性能损耗：

' 工作簿打开瞬间强制切自动计算
Private Sub Workbook_Open()
    If Application.Calculation <> xlAutomatic Then
        Application.Calculation = xlAutomatic
    End If
End Sub

' 工作簿从其他窗口切回时校验计算模式
Private Sub Workbook_Activate()
    If Application.Calculation <> xlAutomatic Then
        Application.Calculation = xlAutomatic
    End If
End Sub

' 切换任意工作表时校验计算模式
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Application.Calculation <> xlAutomatic Then
        Application.Calculation = xlAutomatic
    End If
End Sub

' 单元格内容修改后校验计算模式
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.Calculation <> xlAutomatic Then
        Application.Calculation = xlAutomatic
    End If
End Sub

' 点击/选中任意单元格时校验计算模式，覆盖你最初想要的"点击就触发"需求
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.Calculation <> xlAutomatic Then
        Application.Calculation = xlAutomatic
    End If
End Sub

2. 强制用户启用宏兜底 #

VBA代码运行的前提是用户打开文件时启用宏，你可以加一个启宏校验逻辑，从使用层面倒逼用户开宏：

• 新建一个名为「启用提示」的工作表，页面内容只留“请启用宏后重新打开本文件，否则无法查看内容”的提示，把这个工作表设为始终可见
• 在Workbook_Open事件里加逻辑：宏正常运行时，自动深度隐藏「启用提示」表，显示所有业务工作表；同时加Workbook_BeforeClose事件，文件关闭时自动深度隐藏所有业务表、只显示「启用提示」表，对应参考代码如下：

Private Sub Workbook_Open()
    Dim sh As Worksheet
    ' 打开文件时隐藏提示页，显示所有业务表
    Sheets("启用提示").Visible = xlSheetVeryHidden
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "启用提示" Then
            sh.Visible = xlSheetVisible
        End If
    Next
    ' 打开即校验计算模式
    If Application.Calculation <> xlAutomatic Then
        Application.Calculation = xlAutomatic
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim sh As Worksheet
    ' 关闭文件时隐藏所有业务表，仅显示提示页
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "启用提示" Then
            sh.Visible = xlSheetVeryHidden ' 深度隐藏，用户无法通过右键菜单取消隐藏
        End If
    Next
    Sheets("启用提示").Visible = xlSheetVisible
    Me.Save ' 自动保存隐藏状态
End Sub

• 给VBA工程加密码保护：在VBA编辑器点击「工具-VBAProject属性-保护」，勾选「锁定工程」，设置查看密码，防止普通用户直接进入编辑器删除宏代码
• 文件保存时选择.xlsm或者.xlsb格式，不要存为无宏的.xlsx格式，避免宏代码被自动清除

注意事项 #

没有方案能100%防住懂VBA、刻意要改计算模式的高级用户，但以上配置可以覆盖所有普通用户的使用场景，只要用户正常启用宏打开文件，不管他怎么手动切计算模式，只要在工作簿内做任意操作都会被立刻切回自动计算。

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