Pregunta

Estoy buscando una forma de ocultar todos los botones del menú de contextuales de Excel y simplemente dejar mis botones que creé.

¿Cómo puedo hacer eso?

¿Fue útil?

Solución

encontré una manera de hacer esto, cuando obtuve el mismo problema ...

Si desea eliminar cualquier artículo

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

o si desea eliminar todos los elementos, entonces

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

Si desea restaurar otra vez

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

Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top