打开时如禁用宏则关闭Excel文件.doc

《打开时如禁用宏则关闭Excel文件.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、个人收集整理勿做商业用途第1例禁用宏则关闭Excel文件一、实例说明：当打开含有宏的文件时，如果“禁用宏”并打开文件后,所有编辑的VBＡ程序将失效。如何当用户打开Ｅxcel文件并禁用宏时，让文件自动关闭呢?本例即是调用Exceｌ4．0版(Excel的一个老版本)的宏命令来解决这个问题。因为“禁用宏”功能无法禁用4．0版本的宏。设置完成后，当用户打开文件并点击禁用宏按钮后,会弹如图1-２４所示提出框,当击“确定”按钮关闭提示框后该文件就会自动关闭。图1-1禁用宏后的提示信息二、设置步骤和使用方法：1、打开自已含有

2、宏的文件或者新建一个Exceｌ文件。然后在VＢＥ编辑器中添加一个模块。并写入以下代码：Fｕnctiｏn　MY()EnｄFunｃｔion添加后的效果如图1-２所示个人收集整理勿做商业用途图1-1给文件添加一个模块并写入代码２、在任一个工作表标签上单元格右键，执行【插入】命令打开如图1-26所示【插入】对话框，在常用选项卡中选取“MSExｃel4.0宏表”项，然后点击确定按钮后便会在当前工作簿中新建一个默认名Mａcro1的“宏表”。如图1-27所示。图1-2打开【插入】对话框个人收集整理勿做商业用途图1-1插入的宏

3、表1、在宏表的以下单元格中输入公式:A2单元格：=EＲROＲ(FＡLSE）　A3单元格:=ＲUN（"MY＂)Ａ4单元格:=IF(ISＥRＲOR($Ａ$3)）　A5单元格:　=ＧＯTO($Ａ$11)Ａ６单元格：=END.IＦ(）　A7单元格:＝EＲＲＯＲ(TRUE）　A８单元格：　＝RETURＮ()　A11单元格:=ALERT(＂对不起!由于禁用了宏,本文件将自动关闭!",3)　Ａ12单元格：＝FILE.CLＯSE（FALSＥ)　A13单元格：=RETＵＲN()添加后的效果如图所示1-28个人收集整理勿做商业用途

4、图1-1在宏表中添加公式后的效果1、逐个选取工作簿中其他工作表,然后执行【插入】/【名称】／【定义】命令，打开【定义名称】对话框。在“在当前工作簿中的名称”框中输入:工作表名称＋Ａuｔo＿Aｃｔiｖate。如图1－29所示在Sheet１工作表中打开【定义名称】对话框,定义的名称就为：Ｓheｅt１Ａuto_Ａctｉvate。然后在引用位置文本框中输入：＝Macｒo1!$A$2。图1-2在每个工作表中都定义相对应的名称个人收集整理勿做商业用途注:当禁用宏并打开设置名称的工作表后,都会自动关闭文件。有一点值得说明一下

5、，如果对于一个工作表数量较多的工作表逐个设置会很麻烦。所以这时可以只需为其中一个设置名称,但要保障“当打开工作簿时，必需是设置名称的工作表处于选取状态”。为了能达到这个效果,建议关闭文件前把除“定义名称工作表”之外的其他工作表都设置为隐藏。1、在每个工作表都定义名称后，保存并关闭文件。整个操作过程序结束。一、代码要点分析由于宏表函数的使用和运行比较复杂，所以这里不再详细说明。读者只需按照上述步骤实现“禁用宏则关闭Exｃｅl文件”的功能即可。读者可以在已编写宏命令的文件中进行以上操作，也可以先新建一个文件完成以上

6、步骤后，再编写自已的程序代码和进行其他的工作表和单元格等编辑。