VBA编程练习08：删除工作表而不显示提示信息

本次的练习非常简单，但在许多场合都会用到。

本次练习题

当我们删除工作簿中的工作表时，Excel会自动弹出“MicrosoftExcel将永久删除此工作表。是否继续？”的信息提示框，要求你选择“删除”还是“取消”，如下图1所示。

图1

在编写VBA程序代码时，如果代码要删除指定的工作表，那么也会弹出这样的消息，从而导致程序运行中断。

如何使用代码删除指定的工作表，但不显示提示信息？

有兴趣的朋友，不妨先想想，再看下面的答案。

答案

可以使用Application对象的DisplayAlerts属性，代码如下：

Application.DisplayAlerts= False

Worksheets("MySheet").Delete

Application.DisplayAlerts= True

首先将Application对象的DisplayAlerts属性设置为False，以屏蔽Excel可能会弹出的消息框。在完成相应的操作后，再将该属性的值恢复为True。

小结：在你需要避免Excel自动弹出消息时，可以像上述一样通过设置Application对象的DisplayAlerts属性为False来实现。