Excel VBA中Application.Run调用宏时Application.DisplayAlerts失效问题

这问题我之前处理过，核心原因是Application.Run的执行上下文特性在搞鬼：
当你直接运行tmp宏时，整个过程处于同一个Excel执行上下文，Application.DisplayAlerts = False的设置能直接作用于后续的Workbooks.Open操作；但用Application.Run间接调用时，Excel会在一个独立的子上下文里执行tmp，对于网络共享文件的只读提示这类优先级较高的系统级弹窗，当前上下文的DisplayAlerts设置可能被Excel的内部机制忽略——哪怕Debug显示属性是False，也无法抑制这个提示。

下面给你几个可行的解决方案：

方案1：在调用过程中统一控制DisplayAlerts #

把DisplayAlerts的设置移到调用方tmp1里，确保上下文一致性：

Sub tmp1()
    '先关闭警报
    Application.DisplayAlerts = False
    '调用目标宏
    Application.Run "tmp"
    '操作完成后务必恢复警报设置，避免影响后续操作
    Application.DisplayAlerts = True
End Sub

'修改tmp宏，去掉重复的DisplayAlerts设置（或者保留但最后恢复）
Sub tmp()
    Debug.Print Application.DisplayAlerts '此时会显示False
    Workbooks.Open "\\Co-file01\FileName.xlsx"
End Sub

方案2：直接给Workbooks.Open指定ReadOnly参数（最可靠） #

从根源上避免“是否只读打开”的提示，主动指定以只读模式打开文件，这个方法不受DisplayAlerts的影响：

Sub tmp()
    Application.DisplayAlerts = False '可以保留，用于抑制其他可能的警报
    '添加ReadOnly:=True参数，直接只读打开，无提示
    Workbooks.Open Filename:="\\Co-file01\FileName.xlsx", ReadOnly:=True
    Application.DisplayAlerts = True '记得恢复默认设置
End Sub

'调用方无需额外修改，直接运行即可
Sub tmp1()
    Application.Run "tmp"
End Sub

重要提醒 #

无论用哪种方案，操作完成后一定要把Application.DisplayAlerts恢复为True，否则后续的Excel操作（比如保存、删除文件）都不会弹出必要的确认警报，容易造成数据丢失或误操作。

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