快捷键触发VBA宏时MsgBox不显示问题求助

这个坑我踩过！用快捷键触发宏时MsgBox“失踪”，本质是窗口焦点的问题——你打开新工作簿后，刚打开的文件会立刻成为活动窗口，而MsgBox默认会绑定到宏所在的原工作簿线程，结果就被新窗口给挡住了，看起来像是没弹出来，其实它在后台等着呢！

另外原代码还有个隐藏风险：打开新文件后ActiveWorkbook已经变成新文件了，最后用ActiveWorkbook.Close很容易误关你原本的工作簿，这可不是你想要的结果。

修复后的代码 #

Sub openerQuick()
    Dim myfile As String
    Dim clientID As String
    Dim PDSfilename As String
    Dim wbOriginal As Workbook ' 保存触发宏时的原工作簿引用
    Dim wbOpener As Workbook ' 声明要打开的目标工作簿
    
    ' 先锁定原工作簿，避免后续窗口切换导致的上下文混乱
    Set wbOriginal = ActiveWorkbook
    
    ' 明确从原工作簿的单元格取值，不要依赖ActiveCell的动态变化
    clientID = wbOriginal.ActiveCell.Value
    PDSfilename = wbOriginal.ActiveCell.Offset(0, 1).Value
    
    myfile = "N:\DOWNLOAD\FILEDIR\" & clientID & "\original\" & PDSfilename
    Set wbOpener = Workbooks.Open(myfile)
    
    ' 切回原工作簿，确保MsgBox显示在前台
    wbOriginal.Activate
    
    ' 弹出对话框，确认后关闭指定的工作簿（而非ActiveWorkbook）
    If MsgBox("Okay to close?", vbOKCancel, "确认关闭") = vbOK Then
        wbOpener.Close SaveChanges:=False ' 根据需求调整是否保存
    End If
End Sub

关键改动说明 #

• 锁定原工作簿引用：新增wbOriginal变量保存触发宏时的工作簿，彻底摆脱对ActiveWorkbook/ActiveCell的依赖，避免窗口切换带来的错误；
• 强制切回原窗口：在弹出MsgBox前执行wbOriginal.Activate，确保对话框显示在最上层，不会被新打开的工作簿遮挡；
• 明确关闭目标工作簿：用wbOpener.Close代替ActiveWorkbook.Close，精准操作你打开的文件，杜绝误关原工作簿的风险。

额外小提示 #

如果不想切换窗口，也可以在打开文件前临时设置Application.UserControl = True，确保Excel处于用户交互优先模式，不过切换回原窗口的方法更直观可靠。

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