Sicherheitskopie per VBA

[excelsocke]

Hallo miteinander

Meine VBA Kentnisse reichen für mein folgendes Problem nicht aus.
Ich habe per Makrorcorder folgendes Makro aufgezeichnet.
Der Speicherpfad hierzu lautet:
C:\Users\meiner\Documents\Excel\2019.xlsm

Sub speichern()
    
    ScreenUpdating = False
    ActiveSheet.Unprotect
    ActiveWorkbook.Save
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ScreenUpdating = True
   
End Sub


Mein Problem nun ist ich möchte mit dem Makro zeitgleich eine Sicherheitskopie meiner Exceldatei erstellen.
Der Speicherpfad der Sicherheitskopie lautet:      C:\Users\meiner\Documents\Excel\Excel-1\2019.xlsm
---------------------------------------------------------------------------------------------------------------------------------


    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\meiner\Documents\Excel\Excel-1\2019.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True

Dieses hab ich aufgezeichnet und in das oben genannte Makro nach der Zeile "ActiveWorkbook.Save" eingebunden
Beim ersten speichern allles i.O.
Bei jedem weiteren speichern kommt die Meldung "Datei existiert schon ...... Soll sie ersetzt werden?"
Wie kann ich diese Meldung umgehen?

Mit freundl. Grüßen
Jörg

[Kuwer]

Hallo Jörg,

  ActiveWorkbook.SaveCopyAs "C:\Users\meiner\Documents\Excel\Excel-1\2019.xlsm"

Gruß Uwe

[excelsocke]

Hallo Uwe

Funktioniert wie gewünscht.
Herzlichen Dank