上下文菜单 - 隐藏所有按钮并仅添加我的按钮

Question

我正在寻找隐藏Excel上下文菜单中所有按钮的方法，只留下我创建的按钮。

我该怎么做？

Answer 1

我找到了一种方法，当我遇到同样的问题时......

如果您要删除任何项目

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