Office: (Office 2016) Diese Datei speichern und schließen

Hallo zusammen,

ich hätte da mal gerne ein Problem:




Ich habe eine Datei als Vorlage, die ich beim Schließen mit Datum versehen und speichern möchte. Das funktioniert soweit auch gut, außer die Datei soll nicht gespeichert werden.
In meinem Code erscheint eine Abfrage mit voreingestelltem aktuellen Datum.
Klickt man auf ok, wird die Datei passend gespeichert und dann geschlossen.
Klickt man jedoch auf Abbrechen, kommt die Abfrage, ob ich speichern möchte oder nicht. Wie bekomme ich die Weg. EnableEvents funktioniert doch nicht, da ich anschließend die Events nicht wieder anschalten kann, oder?

Hier der Code:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Private Sub Test()
   
    Dim sTxt As String, sPrompt As String, sDefault As String
    Dim Datum
    
    Datum = Date
   
    sPrompt = "Datum eingeben:"
    sDefault = Format(Datum, "dd.mm.yyyy")
    sTxt = InputBox(prompt:=sPrompt, Default:=sDefault)
    If sTxt = "" Then
       Exit Sub
    End If
   
    Application.DisplayAlerts = False
   
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "/Personalliste " & sTxt & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
   
End Sub

Schon mal vielen Dank für Eure Hilfe,
Lutz

 

Hallo Lutz,

als zuätzliche Bedingung:

If sTxt = " " Then 'wenn Abbruch gewaehlt
ActiveWorkbook.Close Savechanges:=wdDoNotSaveChanges
End If


Sorry, weiß grad nicht, wie man Code einfügt, finde ich im Menü nicht

 

Hallo Chakko,

vielen Dank für deine Antwort. Hab's gleich getestet.
Leider hat's zwei Haken.
wdDoNotSaveChanges ist Variable und kein Standard-Wert. Aber ich hab's mit Savechanges:=False versucht. Das funktioniert prinzipiell, aber da ich die Datei damit schließe, wird die Prozedur erneut durchlaufen. Und genau das soll nicht passieren.
Um den 2. Durchlauf zu verhindern könnte ich EnableEvents=False setzen, da ich aber die Datei anschließend schließe, kann ich sie nicht wieder auf True setzen. Geht also auch nicht.

Andere Ideen?

Gruß,
Lutz

 

Versuche es mal mit

Code:

application.Activeworkbook.Saved=True

Hat bei mir funktioniert...

Hier der ganze Code:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Private Sub Test()
   
    Dim sTxt As String, sPrompt As String, sDefault As String
    Dim Datum
    
    Datum = Date
   
    sPrompt = "Datum eingeben:"
    sDefault = Format(Datum, "dd.mm.yyyy")
    sTxt = InputBox(prompt:=sPrompt, Default:=sDefault)
    If sTxt = " " Then 'bei Leerzeichen Abbruch
        application.Activeworkbook.Saved=True
        Exit Sub
    End If
   
    Application.DisplayAlerts = False
   
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "/Personalliste " & sTxt & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook
    Application.DisplayAlerts = True
   
End Sub

 

Na da hab ich ja auf der Leitung gelegen...

Logisch, Datei als gespeichert markieren, dann wird auch nicht mehr gefragt.

Vielen Dank für Deine Hilfe.