Bei "Abbrechen" oder "X" Excel beenden

[mauritius5]

Liebe Leute

Hab bei meinem Dokument folgenden Code beim Öffnen der Arbeitsmappe drin.

Application.Dialogs(xlDialogSaveAs).Show ("Nachname_Vorname_Personalnummer_Besuchsdatum (yyyy_mm_dd)")

Allerdings kann man anstelle des Speichernamens einzugeben auch auf Abbrechen oder auf das "X" klicken und man ist trotzdem in der Originaldatei.
Wie kann ich diesen Code nun soweit anpassen, dass das Klicken auf Abbrechen oder "X" automatisch zum Schliessen der Originaldatei führt.

Wenn ich allerdings einen anderen Speichernamen eingebe, speichert es mir das Dokument da drunter ab und ich verbleibe im neuen Dokument.

Kann mir hier jemand helfen?

Herzlichen Dank und Gruss
mauritius05

[Elex]

Hi

wir kennen ja nicht alle Hintergedanken. Evtl. würde ich anderes Vorgehen Vorschlagen.
Aber versuch es mal so.

Code:

Private Sub Workbook_Open()
Dim Frage

Frage = Application.Dialogs(xlDialogSaveAs).Show("Nachname_Vorname_Personalnummer_Besuchsdatum (yyyy_mm_dd)")
If Not Frage Then Me.Close False

End Sub

Gruß Elex

[Ralf A]

Hi,

eigentlich ein typischer Fall für eine Vorlage. Erstelle aus der Datei eine Vorlagendatei (xlst). Wenn Du da auf das X klickst, wird die Datei geschlossen. Nimmst Du Änderungen vor, wirst Du beim Schließen automatisch gefragt, ob die Datei gespeichert werden soll (als xlsx)...

[HKindler]

Hi,

kleine Korrektur zu Ralfs Vorschlag: das Dateiformat einer Vorlage heißt *.xltx bzw. *.xltm je nachdem ob Makros drin sind oder nicht.

Und für den gefragten Fall, nämlich als Kopie (sprich als weitere Datei) zu speichern und somit das Original nicht zu überschreiben, braucht es dann überhaupt keine Makros, da beim ersten Speichern ein Dateiname abgefragt wird.

[Ralf A]

Hi,

kleine Korrektur zu Ralfs Vorschlag: das Dateiformat einer Vorlage heißt *.xltx bzw. *.xltm je nachdem ob Makros drin sind oder nicht.

...und dabei hab ich heute gar kein Cannabis geraucht... (selbstverständlich nur medizinisch notwendiges  )

Danke für die Richtigstellung!

[mauritius5]

Vielen Dank euch allen. Als Vorlage wollte ich es nicht abspeichern, da es als erster Vorschlag ein .xls bzw. .xlsx Format vorschlägt und der User müsste dann selbstständig das .xlsm Format nehmen. Diesen Schritt traue ich den meisten Usern alllerdings nicht zu

Daher ist der Vorschlag von Elex der passende.

Herzlichen Dank!!!

[WillWissen]

Hi mauritius,

dass du in den Optionen einstellen kannst, was dir als erstes vorgeschlagen wird, ist dir bekannt?

[Ralf A]

...dann würde ich allerdings xlsb als Standard empfehlen... dann gibt's auch keine Probleme, falls mal Makros dabei sind....
Ausnahme, bei Verwendung von PQ. PQ mag, warum auch immer, xlsb nicht so richtig...