Office: Makro gesucht Sicherungskopie in anderes Verzeichnis - Sicherung ohne Makros

Hallo,

kann mir jemand helfen bei der Erstellung eines Makros? Ich möchte von einer Datei, sobald sie geschlossen wird, eine Sicherungskopie in ein anderes Verzeichnis legen. Jedoch soll die Kopie ohne Makros abgespeichert werden (also xlsx nicht xlsm) ist sowas möglich?

ich habe dieses Makro: jedoch speichert es dann die Kopie ebenfalls als xlsm ab, wenn ich die Dateiendung im Makro von 2023.xlsm auf 2023.xlsx ändere, kann ich sie nicht mehr öffnen... Dann bekomme ich die Fehlermeldung von Excel "die Datei kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung ungültig ist. Überprüfen Sie, ob die Datei beschädigt ist und ob die Dateierweiterung dem Dateiformat entspricht.

Heißt das, ich kann die Datei mit Makros nicht als Sicherungskopie ohne Makros speichern? Die Datei ist nur für den Notfall, falls gar nichts mehr geht.

hier mein Makro:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo Fehler

Application.EnableEvents = False
'ThisWorkbook.Save
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs "\hier steht sonst das Verzeichnis\Backup_Übersicht_Stundenbedarf_2023.xlsm"
Application.DisplayAlerts = True
Application.EnableEvents = True

Exit Sub

Fehler:
MsgBox "Fehlernummer: " & Err.Number & _
vbCrLf & "Fehlerbeschreibung: " & Err.Description
End Sub

dies habe ich nicht selbst geschrieben, ich habe es nur so übernommen

 

Hallo,

ThisWorkbook.SaveCopyAs

 

benutze den Makrorecorder. Wie ich auch.

Code:

    ActiveWorkbook.SaveAs Filename:= _
        "W:\Eigene Dateien\Hajo\Internet\Test\2023\Woche\Forum 17.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

die Sachen mit false können entflallen.