Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Button