如何通过VBA限制其他工作簿不被打开至个人工作簿的独立Excel实例？

Windows系统在打开关联的Excel文件时，会枚举所有运行中的Excel进程，优先选择**最早注册到系统运行对象表（ROT）、且处于非空状态（已加载至少一个工作簿）**的进程投递打开请求。
当原默认Excel实例（也就是初始打开你的个人工作簿的那个Application实例）关闭所有已加载的工作簿后，会变成空运行进程，自动退出优先选择列表。此时系统会选择剩下的、唯一持有已加载工作簿的xlApp独立进程来打开新文件，这就是你遇到“关闭原实例所有文件后，新文件跑到独立实例里”问题的核心原因。
你在代码里将xlApp设为Nothing只是释放了VBA层面的对象引用，对应的独立Excel进程仍在后台稳定运行，完全可以被系统检测到并承接文件打开请求，这个操作不会影响系统对进程的识别逻辑。 #

当前代码仅完成了个人工作簿向独立实例的迁移操作，没有给原默认Excel实例做常驻状态保障：

• 个人工作簿从原实例关闭后，原实例没有留存任何已加载的工作簿，直接进入空运行状态，失去默认文件打开宿主的优先级
• 没有对独立实例的文件打开权限做隔离，系统可以自由向这个实例投递新文件打开请求

要做到无论原实例中有没有用户手动打开的常规工作簿，所有其他文件都默认加载到原Application实例中，需要给原实例添加一个永久隐藏的占位工作簿，保证原实例永远处于非空状态、始终保持系统认可的最高打开优先级。
对应的改进代码如下：

' 在个人工作簿的通用声明段定义全局对象，防止占位工作簿被VBA自动回收
Dim wbPlaceholder As Workbook

Public Sub createNewInstance()
    Dim xlApp As Excel.Application
    ' 1. 先给原默认实例创建永久隐藏的占位工作簿
    Set wbPlaceholder = Application.Workbooks.Add
    ' 配置占位工作簿：完全隐藏，不进入窗口切换列表、不干扰用户操作
    wbPlaceholder.Windows(1).Visible = False
    wbPlaceholder.IsAddin = True ' 标记为加载项属性，避免被用户误关闭
    
    ' 2. 创建独立Excel实例，迁移个人工作簿
    Set xlApp = New Excel.Application
    xlApp.Workbooks.Add ThisWorkbook.FullName
    xlApp.Visible = True
    
    ' 3. 关闭原实例中的个人工作簿（保留占位工作簿）
    ThisWorkbook.Saved = True
    ThisWorkbook.Close SaveChanges:=False
End Sub

• 不要手动执行关闭wbPlaceholder的操作，一旦这个占位工作簿被移除，原实例会重新进入空运行状态，触发之前的文件错配问题
• 占位工作簿设置为加载项属性后，不会出现在用户的窗口列表、最近文件列表中，也不会弹出任何操作提示，对用户完全透明
• 原实例只要保持非空状态，系统就会永远把新打开的文件优先投递到这个实例中，不会转到你的个人工作簿所在的独立实例

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