Makro vor dem Speichern ausführen

Sie möchten dafür sorgen, dass vor dem Speichern eines Dokuments ein Makro ausgeführt wird, beispielsweise um automatisch eine Überprüfung vorzunehmen oder eine Berechnung durchzuführen? Dann setzen Sie das Ereignis BeforeSave ein.

Eine über BeforeSave definierte Prozedur springt Excel an, bevor eine Datei gespeichert wird. Der folgende Programmcode zeigt ein Beispiel:

Private Sub Workbook_BeforeSave(ByVal SpeichernAngezeigt As Boolean, Abrechen As Boolean)
Dim a As Variant
a = MsgBox("Es wird gespeichert!!", vbOKOnly, "Speicherhinweis")
End Sub

Wenn Sie diesen Programmcode Ihre Arbeitsmappe einbinden, wird vor dem Speichern einer Datei ein Fenster angezeigt, mit dem Sie auf das Speichern hingewiesen werden:

Ersetzen Sie den MsgBox-Befehl durch die Kommandos, die Sie beim Speichern einer Datei ausführen möchten.

Achten Sie darauf, den Programmcode nicht in ein Standardmodul, sondern in das Modul zur Arbeitsmappe einzubinden. Dazu klicken Sie im VBA-Editor die gewünschte Datei an und führen einen Doppelklick auf Diese Arbeitsmappe aus. Integrieren Sie den Programmcode dann in das dargestellte Modulblatt.

Über die Eigenschaft Abbrechen im Programmcode können Sie steuern, ob die Datei tatsächlich gespeichert werden soll. Indem Sie Abbrechen auf den Wert false setzen, sorgen Sie dafür, dass Excel das Speichern nicht ausführt.