Menu di scelta rapida: nascondi tutti i pulsanti e aggiungi solo i miei pulsanti

Question

Sto cercando un modo per nascondere tutti i pulsanti dal menu di scelta rapida di Excel e lasciare i miei pulsanti che ho creato.

Come posso farlo?

Answer 1

Ho trovato un modo per farlo, quando ho avuto lo stesso problema ..

Se vuoi rimuovere qualsiasi articolo

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

.

o se vuoi eliminare tutti gli elementi, quindi

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

.

Se si desidera ripristinare di nuovo

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

.