Thema: Speichern ausschließlich über UserForm-Schaltfläche

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeSave( _
   ByVal SaveAsUI As Boolean, Cancel As Boolean)
   If gbln = False Then
      Beep
      MsgBox "Ich darf nicht speichern!"
      Cancel = True
   End If
   gbln = False
End Sub

StandardModule: Modul1

Public gbln As Boolean

Sub DialogAufruf()
   frmSave.Show
End Sub

ClassModule: frmSave

Private Sub cmdSave_Click()
   If MsgBox( _
      prompt:="Speichern?", _
      Buttons:=vbQuestion + vbYesNo _
      ) = vbYes Then
      gbln = True
      Worksheets(1).Select
      ActiveWorkbook.Save
   Else
      gbln = False
   End If
   Unload Me
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Dialog