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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 272901
Url: https://administrator.de/contentid/272901
Ausgedruckt am: 22.11.2024 um 14:11 Uhr
2 Kommentare
Neuester Kommentar
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