Office: Excel-Datei ohne Speichern schließen und mit MessageBox

Hallo liebe Mitstreiter,

ich bin momentan etwas festgefahren, ich habe eine Excel-Datei mit mehreren Arbeitsmappen erstellt, in die man Daten eingibt und woraufhin dann Formulare zum Ausdrucken generiert werden. Damit man nicht jedesmal nach dem Öffnen alle Felder leeren muss, würe ich gerne ein Sub einbinden, das die Datei nach dem Klick auf das Kreuz beendet ohne nach dem Speichern zu fragen, außerdem soll vor dem eigentlichen Schließen noch eine kleine MessageBox mit einer Warnung erscheinen (idealerweise mit einer "OK" und einer "Abbrechen" Schaltfläche). Ersteres funktioniert, aber bei der MessageBox bin ich unsicher. Vielen Dank für eure Hilfe!

:)

 

Ich kann nur eine Arbeitsmappe mit mehren Tabellen erstellen, Wie erstellt man eine Arbeitsmappe mit mehreren Arbeitsmappen?

Ich würde mal vermuten
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt in der gesamten Datei.
Code:

 

Hallo Hajo,

danke schonmal für deine ANtwort, natürlich ist es eine Arbeitsmappe mit mehreren Tabellen*wink.gif*
Die Frage ist nur, unter welchem Punkt ich den Code im VBA-Editor einfügen muss, habe es schon an diversen Stellen probiert, aber beim Klick auf das X werde ich jedesmal nach Speichern gefragt.

 

ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.

 

Hallo,

im Prinzip so:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Saved = True
If MsgBox("Was nun?", vbQuestion Or vbOKCancel, "Abfrage") = vbOK Then
'Code für OK
Else
'Code für Abbrechen
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Der Code muss in das Modul "DieseArbeitsmappe"

 

\@Hajo

Ich muss um Verzeihung bitten, ich habe deinen Hinweis "In DieseArbeitsmappe" tatsächlich überlesen!

@Nepumuk

Ich danke dir! Der Code funktioniert genauso wie er sollte, allerdings schließt das Dokument sowohl nach Klick auf "OK" als auch nach Klick auf "Abbrechen", wie kann man das steuern, dass der ganze Vorgang nach Klick auf "Abbrechen" einfach abgebrochen wird? Außerdem lässt sich die Datei nach Eingabe des Codes nicht mehr speichern.

 

Hallo,

ich dachte du wolltest verhindern dass die Mappe gespeichert wird.

Wenn gespeichert werden soll, dann genügt folgender Code:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Was nun?", vbQuestion Or vbOKCancel, "Abfrage") = vbOK Then
Saved = True
Else
Cancel = True
End If
End Sub

 

Vielen Dank, jetzt funktioniert es einwandfrei!*Smilie