armin-k
Goto Top

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"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
** Bedingungen ???
End Sub

Vielen Dank schon jetzt für Hilfe.....

Armin

Content-ID: 272901

Url: https://administrator.de/contentid/272901

Ausgedruckt am: 22.11.2024 um 14:11 Uhr

114757
Lösung 114757 25.05.2015 aktualisiert um 16:32:08 Uhr
Goto Top
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
Gruß jodel32
Armin-K
Armin-K 25.05.2015 aktualisiert um 16:31:54 Uhr
Goto Top
Hallo Jodel,

Deine Hilfe war vermutlich eher fertig, als ich denn die Frage richtig gestellt hatte. Lösung ist für mich perfekt - funktioniert genau wie gewünscht!

Ganz herzlichen Dank aus der Lüneburger Heide... LG Armin