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