طلب تعديل فى كود لعمل نسخة احتياطية

[ابا اسماعيل]

السلام عليكم ورحمة الله وبركاته
يااخوان اريد تعديل الكود عمل نسخة احتياطية لقاعدة البيانات مع  جميع  معادلة الورقة كاملة بي جميع المعدلة

بارك الله فيكم

 

 

 

 

 

Sub BillBackup()
    Dim Shp As Shape
    nm = [E5] & "_" & Day([E3]) & "_" & Month([E3]) & "_" & Year([E3])
    ActiveSheet.Copy
    
    ChDir "D:\test\"
    On Error GoTo 1
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\abdalwahd\" & nm & ".xlsx"

    For Each Shp In ActiveSheet.Shapes
        If Shp.Type = msoAutoShape Or Shp.Type = msoTextBox Then Shp.Delete
    Next Shp

    ActiveWorkbook.Save
    ActiveWindow.Close
1    Application.DisplayAlerts = True: Exit Sub
End Sub

[ابا اسماعيل]

الرجو المساعدة لي طلب تعديل كود عمل نسخة احتياطية في (disque D) مع صيغ و معادلات بي سم زابون  والتاريخ

[ابا اسماعيل]

طلب اريد تعديل كود عمل نسخة احتياطية لي الملف كمال بي جميع المعدالة

2015..zip

[ابا اسماعيل]

ارجول العمل

[ابا اسماعيل]

ارجو المساعدة يا اخوان ادكان شرح غير واضح فاخبروني بارك الله فيكم