Hallo fmjka,
In den oberen „Überschriftsspalten“ steht:
Workbook und rechts Before Close
das ist korrekt.
Die Zeile
ThisWorkbook.SaveCopyAs „D:\Eigene Dateien\Excel Sicherungen“ &
ist in roter Schrift dargestellt. Warum auch immer?
Weil nach „&“ nix mehr steht.
Wenn ich dann auf Datei und schließen und zurück zu Microsoft
Excel klicke, erscheint ein Fehlerfenster
Fehler beim Kompilieren
Syntaxfehler
Ich weiß echt nicht wodran es hängt, EXAKT das Nachfolgende muß da stehen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs „D:\Eigene Dateien\Excel Sicherungen“ & ThisWorkbook.Name
Application.DisplayAlerts = True
End Sub
Wenn du das nicht hinkriegst muß ich dir wohl doch einen Sub Seven schicken und das selbst auf deinem PC tun 
)
Gruß
Reinhard