HERBERS Excel-Forum - die Beispiele

Thema: Speichernabfrage beim Schließen der Arbeitsmappe

Home

Gruppe

Ereignis

Problem

Wie kann ich bei jedem Schließen einer bestimmten Arbeitsmappe abfragen, ob die Datei unter dem in Zelle A1 stehenden Namen gespeichert werden soll? Wenn die Datei bereits besteht, soll eine Sicherheitsabfrage erfolgen.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim vSave As Variant
   Dim sFile As String
   sFile = ThisWorkbook.Worksheets("Tabelle1").Range("B1").Value
   If Right(sFile, 3) <> "xls" Then sFile = sFile & ".xls"
   If Dir(sFile) <> "" Then
      vSave = MsgBox("Datei überschreiben?", vbYesNoCancel)
      If vSave = vbYes Then
         Application.DisplayAlerts = False
         ThisWorkbook.SaveAs sFile
         Application.DisplayAlerts = True
      ElseIf vSave = vbCancel Then
         Cancel = True
      Else
         Cancel = False
      End If
   Else
      ThisWorkbook.SaveAs sFile
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeClose

Workbook_BeforeClose + Cancel = True Msg mit 2 Ereignissen +Cancel
Ereignisprozedur Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis Namen definiert- in Ereignis verwenden?
Zeilen aus- einblenden als Ereignis? Welches Ereignis ist das richtige ??
Ereignis Arbeitsblatt sperren abfangen Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis Change-Ereignis in Combobox unterdrücken
Combobox Ereignis Userform, Ereignis deklarieren im Klassenmodul
Welches Diagramm-Ereignis? Bestimmtes Ereignis in Spalte zählen
Command Button Ereignis Ereignis von Laufzeit-Checkbox
change-ereignis bei dynamischen Controls / Teil 2 Change Ereignis verhindern
change-ereignis bei dynamisch erstellten Controls Schaltfläche - Ereignis erst nach Bestätigung ausl
Objekt_Error - Ereignis in UserForm change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen? Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse Ausnahmen für Exit-Ereignis
Workbook_beforeClose umgehen Exit-Ereignis SetFocus
Workbook_BeforeClose Problem select Ereigniss UF Show
Ereignis zeitweise mit Fehler Ereignismakro
Selectereigniss in Spalte doppeltes Klick-Ereignis
Doppelklick-Ereignis VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten Problem mit Workbook_BeforeClose
Worksheet_Change Ereignis erweitern Exit Ereignis springt nicht an
Exit-Ereignis Ereignis "BeforeSave" - ".Find" geht nic
change ereigniss nicht ausführen Userform Exit Ereignis
Rekursiven Aufruf von Ereignissen verhindern Makro läuft nicht, falsches Ereignis?