Gruppe
Menue
Bereich
Button
Thema
Menüpunkt SPEICHERN deaktivieren
Problem
Wie kann ich im Menü DATEI den Menüpunkt "Speichern" deaktivieren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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