Office: (Office 2007) Speichern abbrechen

Hallo zusammen

Ich hab ne Frage zum Speichern (hab zwar schon einiges dazu gefunden, aber nicht wirklich, was ich suche).

Ich möchte per VBA beforesafe einfach eine MSG-Box einblenden: "Wirklich speichern?" Ok, Abbrechen.

Bei Ok soll gespeichert und geschlossen werden, bei Abbrechen soll die Datei geschlossen werden.

Muß ich dafür eine MSG-Box selber kreiren, oder gibts die auch schon "vorgefertigt", wie zb, wenn ich eine MSG nur per OK wegklicke???

Danke schon mal für eure Hilfe!

Gruß
Janni

:)

 

Guten Morgen,

du mußt in für die MsgBox folgenden Befehl eingeben:

MsgBox("Wirklich speichern", vbOKCancel)

vbOKCancel sagt das du eine MsgBox mit "OK"-Button und "Abbrechen"-Button erstellst.

Zum abfragen welcher Button betätigt wird solltest du folgende Ergänzung machen:

Dim abfrage as Integer

abfrage = MsgBox("Wirklich speichern", vbOKCancel)

Wobei für den Button "OK" abfrage = 1 und Button "Abbrechen" abfrage = 2.

Per if-Verzweigung danach das Programm fortsetzen.

 

Moin, Janni,

nicht beschriebend, sondern per Code:

Code:

Oder ohne zusätzliche Variable:

Code:

Bei Workbook_BeforeSave könnte Cancel = True verwendet werden.