背景:

本人目前就职于DTT广州所,因采用了所里同事口口相传的Excel小工具——【删去excel里无效公式的工具】,使用完成后发现Excel的右键菜单多出来很多选项,但其实有些用不上,或者不想用时候删不掉。

遂网上搜索方法,找到了百度文库的一篇文章,仔细一看截图,巧了不是,想必这位不是DTT广州所的前辈,也必然是用过这个小工具的DTT人了。本人根据这篇文章,重新复现,并重新制作更详细的教材。原文链接如下,感谢这位小工具的DTT前辈,也感谢下面文章教程的前辈:

Excel右键菜单删除解决办法 - 百度文库

原工具长这样:

如图所示,使用后会在工具选项栏出现【General Tools】,同时右键菜单出现大量选项。

这是一个xlam插件,不是Excel插件或者com插件,故无法通过常规方式禁用。

删除插件方法:

只要直接删除掉原xlam文件即可,这时候Excel工具栏上的【General Tools】会消失。但是Excel的右键菜单的无用选项却没法跟着一起清除掉,接下来有两种解决办法:方案1重置右键菜单;方案2删除指定右键菜单。

方案1、重置右键菜单

1.打开一张空白的Excel,进入VBE代码查看界面。

VBE窗口的打开方式:
快捷方式【Alt+F11】

【开发者工具】-【Visual Basic】命令
【开发者工具】-【查看代码】命令

鼠标右键单击工作表标签 -【查看代码】
鼠标右键单击ActiveX控件 -【查看代码】

2.然后点击【插入】→【模块】,输入如下代码,再按F5运行。

3.在弹出来的宏运行界面,再次点击运行即可重置Excel右键菜单。

4.关掉VBE界面,此时发现Excel右键菜单已经重置,恢复正常。

Sub reset() Application.CommandBars("cell").reset End Sub

打开VBE

插入模块

输入代码

运行代码

完成效果


方案2:删除指定右键菜单

操作步骤同上,在粘贴代码时将代码换成如下代码,其中key换成要删除的右键菜单名。比如说可以换成【Tickback】,如下图所示,该右键菜单已经单独删除。

Sub delete() On Error Resume Next Application.CommandBars("cell").Controls("key").delete End Sub

完成效果


最后说一句,2023年不适合做审计