حفظ ملف اكسل

[mohamed.youssef]

السادة الافاضل

ممكن مساعدة انا عندي ملف اكسل وعليه ماكرو حماية للصفحات واريد ان اعمل نسخة من الملف عند الحفظ في مكان اخر على الجهاز ولكن كل ما اقوم بحفظ الملف يخرجلي خطأ 

وانا عندي نص الماكرو 

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.DisplayAlerts = False

ActiveWorkbook.SaveCopyAs Filename:="D:\Ahmed\" & _

            ActiveWorkbook.Name

ActiveWorkbook.Save

Application.DisplayAlerts = True

End Sub