Diese Routinen sollen zeigen, wie man vorhandene Menüeinträge
löschen oder disablen (deaktivieren) kann.

Löschen von Menüeinträgen

'Löschen des Menüpunktes "Extras"
Sub Menüpunkt_löschen()
    On Error Resume Next
    CommandBars("Worksheet Menu Bar"). _
       Controls("Extras").Delete
End Sub
'Löscht den Eintrag "Speichern" im Menü "Datei"
Sub Menüeintrag_löschen()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Datei").Controls("Speichern").Delete
End Sub

'Wiederherstellen der gesamten Menüleiste
Sub Menüleiste_wiederherstellen()
    CommandBars("Worksheet Menu Bar").Reset
End Sub

Deaktivieren von Menüeinträgen

'Deaktiviert den Menüpunkt "Extras"
Sub Menüpunkt_deaktivieren()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Extras").Enabled = False
End Sub

'Reaktiviert den Menüpunkt "Extras"
Sub Menüpunkt_reaktivieren()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Extras").Enabled = True
End Sub

'Deaktiviert den Menüeintrag "Speichern" im Menü "Datei"
Sub Menüeintrag_deaktivieren()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Datei").Controls("Speichern").Enabled = False
End Sub

'Reaktiviert den Menüeintrag "Speichern" im Menü "Datei"
Sub Menüeintrag_reaktivieren()
    CommandBars("Worksheet Menu Bar"). _
       Controls("Datei").Controls("Speichern").Enabled = True
End Sub