如何通过VBA实现指定电子表格在独立Excel实例中打开并隔离运行？

我之前帮客户处理过类似的场景——带大量宏和用户窗体的Excel文件要像独立应用一样运行，完全隔离其他Excel实例，下面几个方案都是实测有效的：

方案1：通过VBA启动时强制开启新实例 #

这个方案适合用户直接双击文件就能触发隔离，核心思路是在工作簿打开事件里检查当前环境，若不是独立实例就启动全新Excel进程打开自身，再关闭当前实例：

Private Sub Workbook_Open()
    ' 检查当前实例是否仅打开了此工作簿，且是可见状态
    If Application.Workbooks.Count > 1 Or Application.Visible = False Then
        Dim newExcelApp As Object
        Set newExcelApp = CreateObject("Excel.Application")
        newExcelApp.Visible = True
        
        ' 打开当前工作簿，通过OpenArgs标记为新实例启动，避免循环触发
        newExcelApp.Workbooks.Open ThisWorkbook.FullName, OpenArgs:="IsIsolatedInstance"
        
        ' 关闭当前实例中的本工作簿，若只剩这一个则退出Excel
        ThisWorkbook.Close SaveChanges:=False
        If Application.Workbooks.Count = 0 Then
            Application.Quit
        End If
        Set newExcelApp = Nothing
    Else
        ' 仅在新实例启动时初始化用户窗体/宏
        If ThisWorkbook.OpenArgs = "IsIsolatedInstance" Then
            UserForm1.Show ' 替换成你的主用户窗体名称
        End If
    End If
End Sub

注意事项：

• 文件必须保存为.xlsm格式并启用宏
• 第一次打开会闪一下原实例关闭的过程，属于正常逻辑

方案2：修改快捷方式启动参数（最简便） #

如果不想修改VBA，直接给文件做一个带启动参数的快捷方式，强制用全新实例打开：

• 右键目标Excel文件，选择「创建快捷方式」
• 右键快捷方式→「属性」，在「目标」栏末尾添加参数： /x "你的文件完整路径"
  示例修改后：
  "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" /x "D:\YourMacroFile.xlsm"
• 点击确定，以后通过这个快捷方式打开文件，会直接启动完全隔离的Excel实例

核心说明：/x是Office 2013及以上版本支持的参数，作用是启动新实例且不继承任何现有实例的配置、工作簿，彻底隔离。

方案3：批处理脚本启动（适合自动化部署） #

写一个简单的批处理文件，适合需要分发给用户或自动化启动的场景：

@echo off
:: 替换成你的Excel安装路径和目标文件路径
start "" "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" /x "D:\YourMacroFile.xlsm"
exit

补充优化：可以给批处理文件创建快捷方式，修改图标为Excel图标，用户体验和直接打开文件一致。

额外隔离增强技巧 #

为了确保彻底隔离，还可以在VBA中添加以下设置：

Private Sub Workbook_Open()
    ' 禁止其他Excel实例通过OLE调用当前实例
    Application.IgnoreRemoteRequests = True
    ' 禁用自动恢复，避免和其他实例共享恢复文件
    Application.AutoRecover.Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 恢复默认设置，不影响后续Excel使用
    Application.IgnoreRemoteRequests = False
    Application.AutoRecover.Enabled = True
End Sub

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