首先我们先来了解两个概念,即宏和加载宏。
很多人对这两个概念不清楚,导致问题都说得不明白。
首先,每个宏都有一个名称,自然,每个宏也有不同的代码,以实现不同的功能。
一般,宏在这个地方能看到,即宏对话框。
“工具”→“宏”→“宏”,然后在对话框中,你就能看到工作薄中的宏名称,如果要想删除,选中宏名之后,点击“删除”按钮就可以。
但是,本文我们说的是,加载宏,这个一般指的是被加载到工作薄环境之下的XLA文件或XLL文件。注意,这种宏已经被安放在Excel工作薄环境中了,它的应用范围,可在任何一个打开的工作薄中调用其中的宏,使用范围在整个系统中,而上面所说的宏,应用范围仅在所包含的工作薄中。
言归正传吧,Excel只提供了加载宏的办法,却没有提供删除加载宏的方法。这就是本我要解决的问题。
你可以通过如下两种方法来删除加载宏。
方法一:
打开你的系统文档及用户路径,如下面的位置。
C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns
我的电脑的系统文档及用户路径为Documents and Settings\Administrator,你的可能不相同,但是类似,总之,找到该路径里面的Application Data\Microsoft\AddIns文件夹,如果里面有扩展名为XLA这样的文件,就将其删除,这样就删除加载宏了。
方法二:
找到菜单:“工具”→“加载宏”,弹出对话框。然后把不想使用的项目前面的√取消,这样就达到删除加载宏的目的了。
当然,可以两种方法联合使用。
知识扩展:
下面的代码,可帮助你找到你的Excel工作薄环境,到底加载了多少宏,它会列出已加载宏的名称放到单元格里面。
Worksheets(1).Activate rw = 1
Dim ad As AddIn
For Each ad In Application.AddIns
Worksheets("Sheet1").Cells(rw, 1) = ad.Name
Worksheets("Sheet1").Cells(rw, 2) = ad.Installed
Worksheets("Sheet1").Cells(rw, 3) = ad.FullName
rw = rw + 1
Next