Menu contextuel - masquer tous les boutons et ajouter mes boutons seulement

Question

Je cherche un moyen de cacher tous les boutons dans le menu contextuel Excel et de laisser mes boutons que j'ai créés.

Comment puis-je faire ça?

Answer 1

J'ai trouvé un moyen de faire cela, quand j'ai eu le même problème ..

Si vous souhaitez supprimer n'importe quel article

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

ou si vous voulez supprimer tous les éléments, alors

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

Si vous voulez restaurer à nouveau

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