如何删除自定义菜单

fecmen · 发表于 2011-8-7 20:03

其实，加载文件禁止加载后菜单也就不会加载了。
共享一段代码吧
Sub ResetAllToolbars()
Dim tb
For Each tb In CommandBars
      If tb.Type = msoBarTypeNormal Then
         If tb.BuiltIn Then tb.Reset
      End If
Next
End Sub

Excel加载文件管家的停用功能就可以做到。暂时尚未开通xlstart目录下扫描功能。

[ 本帖最后由 fecmen 于 2011-8-7 20:04 编辑 ]

opelwang · 发表于 2011-8-8 00:36

非常感謝分享...

jwp2011 · 发表于 2015-10-14 17:01

unsamesky 发表于 2011-8-3 22:41
对于系统菜单，直接用Reset还原。
例如，楼主在一楼遇到的问题，可以用如下代码删除非默认菜单。
sub ...

好，解决了我的问题

gmts · 发表于 2019-11-18 13:10

zhaogang1960 发表于 2011-8-3 00:09
这样？
Sub Macro1()
Dim MyPath$, MyName$

不行啊，之前的自定义菜单还在

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

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