如何通过Excel VBA编程关闭多线程以解决宏运行速度慢问题

完全可以通过VBA代码直接控制多线程计算开关，无需逐台指导用户修改本地设置。你之前用的关闭自动计算、关闭屏幕更新的优化，之所以没消除右下角的线程计算标识，是因为这两个设置和多线程调度开关是独立的——哪怕开启手动计算，只要多线程计算功能处于启用状态，Excel触发计算时依然会调用多核运算、显示对应的线程标识。

核心操作逻辑 #

依托Excel内置的MultiThreadedCalculation对象，在宏启动阶段临时接管多线程开关，宏运行结束后再把设置还原回用户的原始配置，既不影响宏运行时的无干扰效果，也不会改动用户的长期使用习惯。
可直接复用的通用代码框架如下：

Sub 通用宏运行环境封装()
    ' 定义变量存储用户原始配置
    Dim oriScreenState As Boolean
    Dim oriCalcMode As XlCalculation
    Dim oriMultiThreadEnable As Boolean
    Dim oriThreadCount As Long
    
    ' 捕获异常，确保哪怕宏报错也能恢复用户设置
    On Error GoTo RestoreSettings
    
    ' 读取用户当前的原始设置
    oriScreenState = Application.ScreenUpdating
    oriCalcMode = Application.Calculation
    oriMultiThreadEnable = Application.MultiThreadedCalculation.Enabled
    oriThreadCount = Application.MultiThreadedCalculation.ThreadCount
    
    ' 应用运行时优化配置
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    ' 核心：临时关闭多线程计算，彻底消除右下角线程计算标识
    Application.MultiThreadedCalculation.Enabled = False
    
    ' --------------------------
    ' 在此处粘贴你的实际业务宏代码
    ' --------------------------

RestoreSettings:
    ' 不管宏正常运行结束还是触发错误，都执行设置还原
    Application.MultiThreadedCalculation.Enabled = oriMultiThreadEnable
    Application.MultiThreadedCalculation.ThreadCount = oriThreadCount
    Application.Calculation = oriCalcMode
    Application.ScreenUpdating = oriScreenState
    ' 若存在运行错误，主动抛出提示
    If Err.Number <> 0 Then
        MsgBox "宏运行出错：" & Err.Description, vbExclamation
    End If
End Sub

落地注意事项 #

• 该控制接口自Excel 2010版本起正式内置，和用户手动在「文件-选项-高级-公式」板块调整的多线程计算选项完全等价，普通用户权限下即可生效，无需管理员授权
• 绝对不要硬编码永久关闭多线程计算的逻辑：分发给不同用户的文件，需要适配每个人的使用习惯，仅在宏运行的生命周期内临时关闭多线程就足以达到提速、消除界面标识的效果
• 必须补充错误捕获逻辑：如果宏运行中途报错中断，没有执行设置还原流程，会导致用户的多线程计算功能一直被关闭，影响日常办公效率

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