上下文菜单 – 隐藏所有button并仅添加我的button

我正在寻找一种方法来隐藏Excel上下文菜单中的所有button，只留下我创build的button。

我怎样才能做到这一点？

Answer 1

我find了一个办法做到这一点，当我有同样的问题..

如果你想删除任何项目

Sub RemoveItems() Application.CommandBars("Cell").Controls("Insert...").Delete Application.CommandBars("Cell").Controls("Cut").Delete Application.CommandBars("Cell").Controls("Copy").Delete End Sub 

或者，如果你想删除所有项目

 Sub DeleteAll() Set CtrlMenu = Application.CommandBars("Cell") For Each Item In CtrlMenu.Controls Item.Delete Next End Sub 

如果你想再次恢复

 Sub ResetMenu() Application.CommandBars("Cell").Reset End Sub