背景:
本人目前就职于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年不适合做审计