Wydaje się, że brniesz w konflikt z użytkownikami . Twój wybór. Nie mam w tym doświadczenia, ale nie powinno to być trudne.
Sub UsunKontekst()
Dim ctrl As CommandBarControl
For Each ctrl In Application.CommandBars("Cell").Controls
If ctrl.Caption = "Wkl&ej" Then
ctrl.Delete
Exit For
End If
Next ctrl
End Sub
Sub Resetuj()
Application.CommandBars("cell").Reset
Application.CommandBars("row").Reset
End Sub
Zdaje się, że bazujesz na angielskiej wersji excela - zmień wyszukiwaną nazwę w menu kontekstowym (podręcznym). Powyższe testowałem na excelu 2007. Nie mam pojęcia czy coś później zmienili. |