Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Skripte(PHP,ASP,Perl...)

Skripte(PHP,ASP,Perl...)

Fragevon snailhouse vom 17.03.2020, 23:16 Options

Excel VBA: Workbook_BeforeSave

Hallo zusammen,

Wie ist es möglich, vor dem Speichervorgang eine Überprüfung durchzuführen (z.B. ob bestimmte Zellen ausgefüllt wurden) und
ggf. das Speichern zu verhindern ?

Bsp.:
- Benutzer klickt auf "Speichern"
- Zelle x,y ist nicht ausgefüllt (d.h. die Datei darf noch nicht gespeichert werden)
- Datei wird nicht gespeichert/Datei-Speichern unter-Dialog wird nicht angezeicht, stattdessen erscheint ein Hinweisfenster, dass noch nicht alle Pflichtfelder ausgefüllt wurden.

Mit Workbook_BeforeSave kann ich zwar einen Code ausführen, aber wie unterbreche ich den weiteren Speichervorgang?

Für Eure Mühe im voraus vielen Dank!

Gruß
Jürgen

Antwort schreiben

Antwort 1 von Massaraksch vom 18.03.2020, 00:00 OptionsLösung

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If IsEmpty(Worksheets("Tabelle1").Range("A1")) Then
    MsgBox "Zelle A1 in Tabelle1 noch nicht ausgefüllt! Mappe wird nicht gespeichert."
    [b]Cancel = True[/b]
End If
End Sub

Massaraksch

Antwort 2 von snailhouse vom 18.03.2020, 22:48 Options

Hallo Massaraksch,

super, vielen Dank!

Gruß
Jürgen

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken