Workbook.BeforeSave-Ereignis (Excel)

Artikel
04/07/2023

Tritt auf, bevor die Arbeitsmappe gespeichert wird.

Syntax

Ausdruck. BeforeSave (SaveAsUI, Cancel)

expression Eine Variable, die ein Workbook-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SaveAsUI	Erforderlich	Boolean	True , wenn das Dialogfeld Speichern unter aufgrund von Änderungen angezeigt wird, die in der Arbeitsmappe gespeichert werden müssen.
Cancel	Erforderlich	Boolean	False, wenn das Ereignis auftritt. Falls die Ereignisprozedur dieses Argument auf True festlegt, wird die Arbeitsmappe nach Beendigung der Prozedur nicht gespeichert.

Rückgabewert

Nothing

Beispiel

In diesem Beispiel wird der Benutzer aufgefordert, mit Ja oder Nein zu antworten, bevor die Arbeitsmappe gespeichert wird.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
        Cancel as Boolean) 
    a = MsgBox("Do you really want to save the workbook?", vbYesNo) 
    If a = vbNo Then Cancel = True 
End Sub

In diesem Beispiel wird das Ereignis BeforeSave verwendet, um sicherzustellen, dass in bestimmten Zellen Daten vorhanden sind, bevor eine Arbeitsmappe gespeichert werden kann. Dabei kann die Arbeitsmappe nur gespeichert werden, wenn in den folgenden Zellen Daten enthalten sind: D5, D7, D9, D11, D13 und D15.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   'If the six specified cells don't contain data, then display a message box with an error
   'and cancel the attempt to save.
   If WorksheetFunction.CountA(Worksheets("Sheet1").Range("D5,D7,D9,D11,D13,D15")) < 6 Then
      MsgBox "Workbook will not be saved unless" & vbCrLf & _
      "All required fields have been filled in!"
      Cancel = True
   End If
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.