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
|