如何删除自定义菜单

opelwang

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

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

   

'

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

xtanuihazfh

检查一下加载宏

opelwang

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

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

baomaboy

把那个文件发上来看看

jiminyanyan

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

opelwang

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

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

zhaogang1960

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


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

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

opelwang

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

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

opelwang

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

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

zhaogang1960

原帖由 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