適用EXCEL2003版
因為2003版的如果禁用宏(宏安全性為高),則無法運行宏。
所以此文是如果設置宏表,來提高安全性
1,用右鍵點擊任意工作表名稱—插入,在跳出的提示中(如下圖),選擇MS EXCEL 4.0 宏表
如何禁用宏則關閉excel文件圖解教程
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("對不起!由于禁用了宏,本文件將自動關閉!請將宏安全性調整為低再打開此文件",3) A12 =FILE.CLOSE(FALSE) A13 =RETURN()
3,運行以下代碼,添加每個工作表激活時的代碼,并深度隱藏宏表
以下代碼中,宏表名為“Macro1”,如果你的宏表名不是這樣的,把代碼中的Macro1換成你宏表的名字,或者把你的宏表名改為“Macro1”
Sub AddName()
Dim Sh As Worksheet
For Each Sh In Sheets
ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersTo:="=Macro1!$A$2"
Next
Sheets("Macro1").Visible = -1
End Sub
4,在任意模塊中加入這個宏
Function MYMacro()
End Function
保存,完工!