Menu de contexto - Ocultar todos os botões e adicionar apenas meus botões

Question

Estou procurando uma maneira de ocultar todos os botões do menu de contexto do Excel e apenas deixar os botões que criei.

Como eu posso fazer isso?

Answer 1

Eu encontrei uma maneira de fazer isso, quando tive o mesmo problema ..

Se você deseja remover algum item

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

Ou se você quiser excluir todos os itens, então

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

Se você quiser restaurar novamente

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