Dosya yedekleme

[Korhan Ayhan]

Kodu revize ettim tekrar deneyiniz.

 

[policeman]

ThisWorkbook.SaveCopyAs Yol & "\" & Replace(ThisWorkbook.Name, ".xls", " ") & Format(Now, "dd.mm.yyyy hh_nn_ss") & ".xls"

xlsm olan uzantıyı xls yaptım sorunsuz çalıştı, sağolun hocam; sorum cevaplanmıştır..