Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "c:\Sicherung\" & ThisWorkbook.Name
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:=Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 4) & "_" & Format(Now, "YYYYMMDDhhmmss") & Right(ActiveWorkbook.FullName, 4)
End Sub