第三节 显示警报（DisplayAlerts）的打开和关闭
我们在操作EXCEL的时候，在替换单元格或者删除工作表时，往往会提示我们是否确认这种操作，我们再次点击“确认”，然后系统继续向下操作。如果在代码中执行这种操作，如果让用户响应，往往会很烦，这时可以不必让用户再次操作，代码有办法免去这种提示。
1 Application.DisplayAlerts 属性
如果代码运行时Microsoft Excel显示特定的警告和消息，上述属性则为 True。 读取/写入 Boolean。
语法：expression.DisplayAlerts
其中expression：表示 Application 对象的变量。
Application.DisplayAlerts 属性默认值为 True。如果将此属性设置为False可在宏运行时禁止显示提示和警告消息；当出现需要用户应答的消息时，Microsoft Excel 将选择默认应答。如果将此属性设置为 False，则 Excel 会在代码完成时将此属性设为 True，除非运行的是跨进程代码。
如果使用工作簿的 SaveAs 方法覆盖现有文件，则“确认另存为”对话框具有的默认响应为“否”；如果将 DisplayAlerts 属性设置为 False，则 Excel 选择的响应为“是”。 响应会覆盖现有文件。如果使用工作簿的 SaveAs 方法以 Excel 5.0/95 文件格式保存包含 Visual Basic for Applications (VBA) 项目的工作簿，则“Microsoft Excel”对话框具有的默认响应为“是”；如果将 DisplayAlerts 属性设置为 False，则 Excel 选择的响应为“取消”。 无法使用 Excel 5.0/95 文件格式保存包含 VBA 项目的工作簿。2 Application.DisplayAlerts属性为True的应用
我们看下面的代码，来具体理解这个DisplayAlerts属性的应用：
Sub mynzE() '关闭工作薄1
Workbooks("工作簿1.xlsx").Close
End Sub
代码截图：（略）
代码运行效果：
我们事先打开一个名为“工作簿1.xlsx”的文件，在里面录入些字符，然后运行上述代码：点击运行：
这时会看到下面的提示：这是一种提示异常警告的正常操作。
3 Application.DisplayAlerts属性为False的应用
我们修正代码如下：
Sub mynzF() '关闭工作薄2
Application.DisplayAlerts = False
Workbooks("工作簿1.xlsx").Close
Application.DisplayAlerts = True
End Sub
代码截图：
在上面的基础上，运行上述代码：这时，没有任何提示就完成了操作，打开上述的"工作簿1.xlsx"文件，会发现没有任何改变。
今日内容回向：
1）Application.DisplayAlerts 的作用是什么？
2）Application.DisplayAlerts 属性设置为True和False有什么不同？
3） Application.DisplayAlerts如何应用？
本讲内容参考程序文件：工作簿14.xlsm
分享成果，随喜正能量
努力会有收获VBA的学习教程（初级、中级、高级）：VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了八部VBA专门教程，学习顺序七、一（或者四）、三、二、六、五；或者七、八。其中七，一（或者四）是初级；三，二，八是中级；六，五是高级：
第一套：VBA代码解决方案 是VBA中各个知识点的讲解，
第二套：VBA数据库解决方案 数据库是数据处理的专业利器
第三套：VBA数组与字典解决方案 数组和字典是VBA的精华
第四套：VBA代码解决方案之视频
第五套：VBA中类的解读和利用
第六套教程：VBA信息获取与处理，
第七套教程：VBA之EXCEL应用
第八套教程：VBA之WORD应用