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
|