我明白你的困扰——打开PPST.xlsx后，关闭它居然要终止宏才能完成，这显然影响了使用体验。问题主要出在代码的上下文绑定，以及主用户窗体的显示模式冲突上，下面是具体的解决方案：

1. 重构打开工作簿的代码 #

原来的代码依赖ActiveWorkbook获取路径，这种方式容易导致上下文混乱，而且没有处理Excel的事件和屏幕更新，可能引发冲突。修改后的代码更可靠，也能避免不必要的阻塞：

Private Sub CommandButton7_Click()
    Dim wbPPST As Workbook
    Dim masterFilePath As String
    
    ' 直接使用主工作簿的路径，避免依赖ActiveWorkbook
    masterFilePath = ThisWorkbook.Path
    
    ' 暂时禁用屏幕更新和事件，提升性能并避免冲突
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 错误处理：确保无论是否出错，都能恢复设置
    On Error GoTo Cleanup
    
    ' 打开目标工作簿并赋值给变量，方便后续操作
    Set wbPPST = Workbooks.Open(masterFilePath & "\Toolbox\Define\PPST.xlsx")
    
    ' 可选：激活该工作簿，让用户直接看到它
    wbPPST.Activate

Cleanup:
    ' 恢复Excel的默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
    ' 释放对象变量，避免内存占用
    Set wbPPST = Nothing
End Sub

2. 确保主用户窗体为非模态显示 #

如果你的主用户窗体是用默认的UserForm.Show（模态模式）打开的，它会阻塞Excel的消息循环，导致关闭子工作簿时必须终止宏。你需要改成非模态模式：

' 在显示主用户窗体的代码里，添加vbModeless参数
YourMainUserForm.Show vbModeless

非模态窗体允许Excel同时处理其他操作，包括关闭PPST.xlsx，无需终止宏。

3. 额外处理：禁用子工作簿的宏（如果需要） #

如果PPST.xlsx本身包含宏或事件代码，可能会和主工作簿的宏冲突。你可以在打开它时临时禁用宏加载：

Private Sub CommandButton7_Click()
    Dim wbPPST As Workbook
    Dim masterFilePath As String
    Dim originalSecurity As MsoAutomationSecurity
    
    masterFilePath = ThisWorkbook.Path
    
    ' 保存原有的自动化安全设置
    originalSecurity = Application.AutomationSecurity
    ' 设置为强制禁用所有宏
    Application.AutomationSecurity = msoAutomationSecurityForceDisable
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    On Error GoTo Cleanup
    
    Set wbPPST = Workbooks.Open(masterFilePath & "\Toolbox\Define\PPST.xlsx")
    wbPPST.Activate

Cleanup:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    ' 恢复原安全设置
    Application.AutomationSecurity = originalSecurity
    Set wbPPST = Nothing
End Sub

为什么这样有效？ #

• 使用ThisWorkbook替代ActiveWorkbook，确保路径获取的准确性，避免上下文切换导致的问题。
• 禁用事件和屏幕更新，防止打开工作簿时触发的默认事件（如Workbook_Open）与主窗体的宏发生冲突。
• 非模态窗体让Excel可以同时响应多个操作，关闭子工作簿时不会被宏进程阻塞。

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