禁用宏则关闭Excel文件.doc

禁用宏则关闭Excel文件 实例说明： 当打开含有宏的文件时，如果“禁用宏”并打开文件后，所有编辑的VBA程序将失效。如何当用户打开Excel文件并禁用宏时，让文件自动关闭呢？本例即是调用Excel4.0版（Excel的一个老版本）的宏命令来解决这个问题。因为“禁用宏”功能无法禁用4.0版本的宏。 设置完成后，当用户打开文件并点击禁用宏按钮后，会弹如图1-24所示提出框，当击“确定”按钮关闭提示框后该文件就会自动关闭。 禁用宏后的提示信息 设置步骤和使用方法： 打开自已含有宏的文件或者新建一个Excel文件。然后在VBE编辑器中添加一个模块。并写入以下代码： Function MY() End Function 添加后的效果如图1-2所示 给文件添加一个模块并写入代码 2、在任一个工作表标签上单元格右键，执行【插入】命令打开如图1-26所示【插入】对话框，在常用选项卡中选取“MS Excel4.0宏表”项，然后点击确定按钮后便会在当前工作簿中新建一个默认名Macro1的“宏表”。如图1-27所示。 打开【插入】对话框 插入的宏表 在宏表的以下单元格中输入公式： A2单元格： =ERROR(FALSE) A3单元格： =RUN(MY) A4单元格： =IF(ISERROR($A$3)) A5单元格： =GOTO($A$11) A6单元格： =END.IF()