Office: Beim Speichern immer automatisch eine Sicherungskopie erstellen möglich?

Guten Morgen.

Ich möchte immer, wenn ich Excel speichere, automatisch in einen anderen Ordner eine Sicherungskopie erstellen.
Ist das so möglich?

Wenn ja, wie?

Ich finde viele ähnliche Sachen, aber präzise diese Lösung leider nicht.

 

Hallo Jens,

mache ich so:

Code:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

Dim DateiSuche, Versuch

Application.DisplayAlerts = False
Application.EnableEvents = False

Versuch = 0
DateiSuche = Dir(ThisWorkbook.Path & "\Sicherung\" & "Neue Planungsliste " & Format(Date, "YYYY-MM-DD") & " (*).xlsm")
Do Until DateiSuche = ""
' .Print DateiSuche
    DateiSuche = Dir()
    Versuch = Versuch + 1
Loop
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\Sicherung\" & "Neue Planungsliste " & Format(Date, "YYYY-MM-DD") & " (" & Versuch & ").xlsm"

Application.EnableEvents = True
Application.DisplayAlerts = True

End Sub

Gruß,
Lutz

 

Hallo,

ein anderer Ordner auf dem gleichen Laufwerk sichert deine Daten nicht wirklich, wenn das Laufwerk abraucht, kann trotzdem alles weg sein.

 

Hallo Jens,

da alle etwas von der Antwort haben sollen poste ich nur im Forum und schreibe fast ausschließlich keine PN's.

Der Code gehört in das Modul "DieseArbeitsmappe".
Der Code läuft NACH JEDEM Speichern der Mappe.

Zuerst werden alle Fehlermeldungen zum Beispiel beim Überschreiben eine Datei ausgeschaltet (ACHTUNG: Müssen natürlich am Ende wieder eingeschaltet werden. Würde ich heute auf den Bereich begrenzen, wo's wirklich nötig ist, und in diesem Codeschnipsel eigentlich unnötig).
Dann werden alle Ereignis-Prozeduren ausgeschaltet (man kann für bestimmte Ereignisse (z.B. Öffnen, Schließen, Blattwechsel...) Makros definieren). Ohne diese Zeile würde sich dieses Ereignis-Makro immer wieder selbst aufrufen. Auch hier am Ende wieder einschalten, sonst bleiben die Ereignisse DAUERHAFT aus.

Jetzt wird im Unterordner "Sicherung" des Ordners dieser Datei (ThisWorkbook.Path) nach allen Dateien "Neue Planungsliste " & Format(Date, "YYYY-MM-DD") & " (*).xlsm" gesucht und gezählt (Format(Date, "YYYY-MM-DD") ist das heutige Datum in 2023-05-08).
Abschließend wird eine Kopie (SaveCopyAs) als "Neue Planungsliste " & Format(Date, "YYYY-MM-DD") & " (" & Versuch & ").xlsm" gespeichert.

• Speicherst Du heute zum ersten Mal: "Neue Planungsliste "2023-05-08 (0).xlsm"
• Speicherst Du heute zum zweiten Mal: "Neue Planungsliste "2023-05-08 (1).xlsm"
  
• Speicherst Du morgen zum ersten Mal: "Neue Planungsliste "2023-05-09 (0).xlsm"

Damit bekommst Du den Stand nach jedem Speichern abgelegt. Willst Du wissen, was am 19.04. mit der Datei passiert ist, kannst Du Dir einfach die Dateien von dem Datum anschauen.
Natürlich ist es, wie Klaus-Dieter anmerkte, keine Sicherung im eigentlichen Sinne. Aber dafür hast Du ja sicherlich anderweitig gesorgt.

Gruß,
Lutz

 

Vielen Dank.