如何删除自定义菜单

opelwang · 发表于 2011-8-2 22:30

在论坛上下载了一个自定义菜单的示例文件，执行下，就有这个自定义菜单，每次启动都有。
按：ALT + F11 又看不到任何代码...
把那个文件删掉了，点击按钮，提示：找不到**宏。

请教一下各路英雄，如何用代码，快速删除自定义菜单呀？如图：

'

[ 本帖最后由 opelwang 于 2011-8-3 18:37 编辑 ]

xtanuihazfh · 发表于 2011-8-2 22:35

检查一下加载宏

opelwang · 发表于 2011-8-2 22:38

原帖由 xtanuihazfh 于 2011-8-2 22:35 发表
检查一下加载宏

加载宏，已经检查过了，也是空的。

baomaboy · 发表于 2011-8-2 22:39

把那个文件发上来看看

jiminyanyan · 发表于 2011-8-2 22:43

删除C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\Excel12.xlb
2003的是Excel11.xlb

opelwang · 发表于 2011-8-2 22:54

原帖由 baomaboy 于 2011-8-2 22:39 发表
把那个文件发上来看看

没有文件了,,,,就是下载了一个示例文件，执行了下，就删除了。
再启动就有这个菜单了...
对了，仁兄，用了你的那个加载宏清理工具，里面也是空空的，没有提示有这一项...

zhaogang1960 · 发表于 2011-8-2 22:56

手工操作试试：
在菜单空白处点右键，在右键菜单最底下有“自定义（c）”，在“工具栏”选项卡中找到“宏”，把自定义菜单抓到对话框右侧即可：

如果不能解决问题，请用5楼方法

[ 本帖最后由 zhaogang1960 于 2011-8-2 22:57 编辑 ]

opelwang · 发表于 2011-8-2 23:03

原帖由 jiminyanyan 于 2011-8-2 22:43 发表
删除C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\Excel12.xlb
2003的是Excel11.xlb

这个方法正解，感谢指点！

opelwang · 发表于 2011-8-2 23:07

为方便以后需要，可以考虑用代码还删除这个文件。
判断并获取当前登录用户，然后删除这个路径下的 .xlb 文件。
C:\Documents and Settings\当前用户\Application Data\Microsoft\Excel\*.xlb
请版主指点一下，这段代码该如何写？

[ 本帖最后由 opelwang 于 2011-8-2 23:08 编辑 ]

zhaogang1960 · 发表于 2011-8-3 00:09

原帖由 opelwang 于 2011-8-2 23:07 发表
为方便以后需要，可以考虑用代码还删除这个文件。
判断并获取当前登录用户，然后删除这个路径下的 .xlb 文件。
C:\Documents and Settings\当前用户\Application Data\Microsoft\Excel\*.xlb
请版主指点一下，这段 ...

这样？
Sub Macro1()
Dim MyPath$, MyName$
MyPath = "C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\"
MyName = Dir(MyPath & "*.xlb")
Do While MyName <> ""
Kill MyPath & MyName
MyName = Dir
Loop
MsgBox "完毕"
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何删除自定义菜单

回复 1楼 opelwang 的帖子