运行宏是出现1004错误,说应用程序对象错误
如果禁用宏（宏安全性为高），则无法运行宏。
1，用右键点击任意工作表名称---插入，在跳出的提示中（如下图），选择MS EXCEL 4.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("对不起!由于禁用了宏,本文件将自动关闭!请将宏安全性调整为低再打开此文件",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
保存，完工！
赞 (0)