Hallo zusammen,

ich habe eine .xlsm Datei die ich täglich an 3 verschiedenen Orten speichern muss.

Ich habe mir Abhilfe mit einem Makro geschaffen, aber wenn die Ursprungsdatei keine .xlsm ist und danach mein Makro diese speichert und ich die gespeicherten Dateien öffne, bekomme ich die Fehlermeldung "Die Datei """.xlsm" kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung ungültig ist. 

Wenn die Ursprugsdatei eine .xlsm war dann bekomme ich beim öffnen der gespeicherten Dateien keine Fehlermeldung aber oben eine Leiste mit dem Hinweis: Die datei stammt von einem Internetspeicherort (Bearbeitung aktivieren)

Wie muss ich das Makro umformen damit diese Meldungen nicht mehr kommen. Besonders die 2.

Sub Fehlerreport_Speichern()
    Dim fname, fname1, fname2, fpath1, fpath2, fpath3
    
    
    fname1 = "Fehlerreport" & ".xlsm"
    fname2 = Format(Date - 1, "yyyymmdd") & "_" & "Fehlerreport" & ".xlsm"
    fpath1 = "X:\"
    fpath2 = "H:\"
    fpath3 = "O:\"
    

    ActiveWorkbook.SaveCopyAs fpath1 & fname1
    ActiveWorkbook.SaveCopyAs fpath2 & fname2
    ActiveWorkbook.SaveCopyAs fpath3 & fname2


End Sub