Excel Datei beim Beenden auf eine Namensbedingung prüfen und speichern - nicht speichern
Liebes Forum,
habe (vielleicht) eine kleine Frage... Möchte in einer Excel-Datei vor dem Schließen der Datei zwei Bedingungen zum Dateinamen abfragen.
Wenn der Dateinamen "test.xlsm" ist - soll beim Schließen ohne Rückfrage gepeichert + geschlossen werden,
wenn der Dateiname nicht "test.xlsm" ist, soll die nicht gespeichert und ohne Rückfrage geschlossen werden.
Ich habe schon lange mit möglichen Makrocode herumprobiert - komme aber nicht weiter...
(eingetragen in der VBA Umgebung unter "DieserArbeitsmappe"
Vielen Dank schon jetzt für Hilfe.....
Armin
habe (vielleicht) eine kleine Frage... Möchte in einer Excel-Datei vor dem Schließen der Datei zwei Bedingungen zum Dateinamen abfragen.
Wenn der Dateinamen "test.xlsm" ist - soll beim Schließen ohne Rückfrage gepeichert + geschlossen werden,
wenn der Dateiname nicht "test.xlsm" ist, soll die nicht gespeichert und ohne Rückfrage geschlossen werden.
Ich habe schon lange mit möglichen Makrocode herumprobiert - komme aber nicht weiter...
(eingetragen in der VBA Umgebung unter "DieserArbeitsmappe"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
** Bedingungen ???
End Sub
Vielen Dank schon jetzt für Hilfe.....
Armin
Please also mark the comments that contributed to the solution of the article
Content-Key: 272901
Url: https://administrator.de/contentid/272901
Printed on: April 24, 2024 at 22:04 o'clock
2 Comments
Latest comment
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook
If LCase(.Name) = "test.xlsm" Then
.Save
Else
.Close False
End If
End With
End Sub