Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Speichern ausschließlich über UserForm-Schaltfläche

Gruppe

Dialog

Problem

Die Arbeitsmappe darf ausschließlich über eine UserForm-Schaltfläche gespeichert werden.

Lösung
Geben Sie den nachfolgenden Code in die genannten Module ein und weisen Sie ihn einer Schaltfläche zu.

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