Gruppe
Menue
Problem
Wie kann ich im Menü DATEI den Menüpunkt "Speichern" deaktivieren?
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo ERRORHANDLER
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Datei").Controls("Speichern").Enabled = True
ERRORHANDLER:
End Sub
StandardModule: basMain
Sub DeactivateSave()
With Application.CommandBars("Worksheet Menu Bar") _
.Controls("Datei").Controls("Speichern")
.Enabled = Not .Enabled
End With
End Sub