Menüeinträge löschen oder deaktivieren

30.05.2002

 

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