如何实现Excel无加载项快速启动并按需加载所需AddIns？

一、默认禁用所有AddIns，按需手动加载 #

• 打开Excel，点击「文件」→「选项」→「加载项」
• 在「管理」下拉菜单选择「COM加载项」，点击「转到」
• 取消所有已勾选的AddIns并确定，下次启动Excel将不再自动加载这些AddIns
• 需要使用时重复上述步骤，勾选对应AddIns即可

二、用宏一键切换常用AddIns加载状态 #

步骤1：打开VBA编辑器 #

按 Alt + F11 打开VBA编辑器，右键左侧「VBAProject」→「插入」→「模块」

步骤2：粘贴宏代码 #

将以下代码粘贴到模块中，根据你的实际AddIns名称修改数组内容：

Sub ToggleAddIns()
    ' 替换为你常用的AddIns名称
    Dim addInNames As Variant
    addInNames = Array("Power Query", "你的AddIn名称1", "你的AddIn名称2")
    
    Dim addInName As Variant
    Dim ai As AddIn
    
    For Each addInName In addInNames
        On Error Resume Next
        Set ai = Application.AddIns(addInName)
        If Err.Number = 0 Then
            ' 切换加载状态：已加载则卸载，未加载则加载
            ai.Installed = Not ai.Installed
            MsgBox addInName & " 已" & IIf(ai.Installed, "加载", "卸载"), vbInformation
        Else
            MsgBox addInName & " 未找到，请检查名称是否正确", vbExclamation
        End If
        On Error GoTo 0
    Next addInName
End Sub

步骤3：添加快速访问按钮 #

• 点击Excel顶部「自定义快速访问工具栏」→「更多命令」
• 在「从下列位置选择命令」下拉菜单选「宏」，找到ToggleAddIns宏并添加到右侧列表
• 确定后，快速访问栏会出现对应按钮，点击即可一键切换AddIns状态

三、创建无加载项的启动快捷方式 #

右键桌面空白处→「新建」→「快捷方式」，输入以下命令（替换为你的Excel实际安装路径）：

"C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" /safe

该快捷方式会以安全模式启动Excel，默认不加载任何AddIns，适合仅需查看文件的场景。需要使用AddIns时，再通过加载项菜单手动启用。

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