Sicherung datei
15.08.2020 18:06:24
Frank
Ich habe eine Datei welche beim beenden eine Kopie in einem anderen Ordner erstellt.
Diese Kopie unterscheidet sich lediglich im Format und ist nur zum anschauen nicht zum editieren geeignet.
Ich möchte nun dass wenn meine Hauptdatei geschlossen wird noch eine identische Sicherungskopie jetzt im selben Ordner erstellt wird. Sprich - ich benötige die Abfrage nach dem aktuellen Namen.
Und hier stehe ich etwas auf dem Schlauch.
Meine Hauptdatei heißt Test_2020.xlsm --> es wird an einem anderen Ordner Test_2020_Kopie.xlsm erstellt (funktioniert tadellos). Schließt sich aber die Test_2020_Kopie.xlsm Datei darf keine Sicherungsdatei erstellt werden.
Dachte ich kann das mit IF - Then - Else lösen aber es kommt immer Laufzeitfehler 9
Vielleicht kann mal jemand drüber schauen - mir fehlt der zehner zum Groschen - Danke Gruß Frank
Folgender Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sicherung
Application.OnTime dteCloseTime, "Schließen", , False
End Sub
Sub Sicherung()
If ActiveWorkbook.Name = Windows("Test_2020.xlsm") = True Then
Sicherung1
Else
Exit Sub
End If
End Sub
Sub Sicherung1()
Datei = "Test_2020.xlsm"
Phad = "Q:\Frank\Microsoft\Office2019\Sicherung"
On Error Resume Next
Kill Phad & "\" & "Sicherungskopie" & "_vom" & Format(Now, "_DD-MMM-YYYY") & "_Test_2020.xlsm"
ActiveWorkbook.SaveCopyAs Filename:=Phad & "\" & "Sicherungskopie" & "_vom" & Format(Now, "_DD-MMM-YYYY") & "_Test_2020.xlsm"
End Sub