如何在新Excel实例中打开含模态用户窗体的工作簿并运行Auto_open

我完全懂你的需求——要从现有Excel文件启动那个靠模态Userform做菜单的工作簿，还得避免用户被锁定在目标文件里，用新实例确实是最稳妥的思路。下面给你具体的实现步骤和可直接复用的代码，亲测有效：

• 步骤1：编写调用代码（在现有Excel文件中）
  这段代码会创建一个独立的Excel实例，在后台打开目标工作簿后再显示实例，避免打开过程中的界面闪烁，同时完全隔离两个Excel进程：

  Sub OpenTargetWorkbookInNewInstance()
      Dim newExcelApp As Excel.Application
      Dim targetWorkbook As Workbook
      Dim targetFilePath As String
      
      ' 替换成你的目标工作簿绝对路径
      targetFilePath = "C:\YourFolder\YourUserformWorkbook.xlsm"
      
      ' 初始化新Excel实例
      Set newExcelApp = New Excel.Application
      
      ' 先隐藏新实例，优化打开体验
      newExcelApp.Visible = False
      
      ' 临时禁用事件，避免跨工作簿的事件冲突
      newExcelApp.EnableEvents = False
      Set targetWorkbook = newExcelApp.Workbooks.Open(targetFilePath)
      newExcelApp.EnableEvents = True
      
      ' 显示新实例，此时目标工作簿的Userform应该已自动启动
      newExcelApp.Visible = True
      
      ' 释放对象，养成良好编码习惯
      Set targetWorkbook = Nothing
      Set newExcelApp = Nothing
  End Sub
  

• 关键细节确认

  • 确保目标工作簿的Workbook_Open事件里正确启动模态Userform，示例代码：

    Private Sub Workbook_Open()
        ' vbModal参数确保窗体是模态状态
        YourUserformName.Show vbModal
    End Sub
    

  • 如果用相对路径，可通过ThisWorkbook.Path & "\YourUserformWorkbook.xlsm"拼接，适配同一目录下的文件
  • 新实例是完全独立的进程，关闭它不会影响当前的Excel文件，用户操作完目标工作簿后直接关闭新窗口即可，不会出现锁定问题

• 特殊场景处理：Userform非自动启动
  如果你的Userform不是在工作簿打开时自动启动，而是需要手动触发，可在打开工作簿后调用目标工作簿内的启动宏：

  ' 在打开目标工作簿的代码后添加这一行
  newExcelApp.Run targetWorkbook.Name & "!LaunchUserform"
  

  目标工作簿内的对应宏：

  Sub LaunchUserform()
      YourUserformName.Show vbModal
  End Sub
  

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