禁用宏则关闭excel文件.doc

《禁用宏则关闭excel文件.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、禁用宏则关闭excel文件适用EXCEL2003版因为2003版的如果禁用宏（宏安全性为高），则无法运行宏。所以此文是如果设置宏表，来提高安全性1，用右键点击任意工作表名称---插入，在跳出的提示中（如下图），选择MSEXCEL4.0宏表2，在宏表中写入代码如下： A2=ERROR(FALSE)A3=RUN("MYMacro")A4=IF(ISERROR($A$3))A5=GOTO($A$11)A6=END.IF()A7=ERROR(TRUE)A8=RETURN()A11=ALERT("对不起!由于禁用了宏,本文件将自动关闭!请

2、将宏安全性调整为低再打开此文件",3)A12=FILE.CLOSE(FALSE)A13=RETURN()3，运行以下代码，添加每个工作表激活时的代码，并深度隐藏宏表 以下代码中，宏表名为“Macro1”，如果你的宏表名不是这样的，把代码中的Macro1换成你宏表的名字，或者把你的宏表名改为“Macro1”SubAddName()DimShAsWorksheet   ForEachShInSheets       ActiveWorkbook.Names.AddName:=Sh.Name&"!auto_activate",Refe

3、rsTo:="=Macro1!$A$2"   NextSheets("Macro1").Visible=-1EndSub4，在任意模块中加入这个宏FunctionMYMacro()EndFunction保存，完工！