Sicherheitskopien erstellen
01.09.2004 10:53:03
Andi
hatte gestern schon mal eine Frage bezüglich dem Erstellen von Sicherheitskopien einer Mappe.
Erstelle mit folgendem Code nun meine Kopien:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Sicherheitskopie_von" & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
Leider läuft das mit dem Abschalten nicht so ganz nach Wunsch.
Ich möchte ja auch mehrere Kopien speichern und die ältesten dann löschen.
Geht so etwas? Wenn ja, wie?
Bin für jede Anregung und Hilfe dankbar.
Gruß Andi
Anzeige