Sub XXX()
Application.DisplayAlerts = False
'代码段
Application.DisplayAlerts = True
End Sub
以下是MICROSOFT 给出的说明原文
表达式 .DisplayAlerts
表达式 一个表示应用程序对象的变量。
默认值为 True。将此属性设置为 False 可在宏运行时禁止显示提示和警告消息；当出现需要用户应答的消息时，Microsoft Excel 将选择默认应答。
如果将此属性设置为False时，Microsoft Excel 设置该属性为True完成代码后，除非您正在运行进程间的代码。