كود النسخ الاحتياطي لا يعمل

[احمد خالد الحداد]

السلام عليكم ورحمتة الله وبركاتة

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

صور الكود في المرفقات والرسالة

[مهند محسن]

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

[جمعة العوامي]

ليس هناك داع لهذا كله 
ضع هذا الكود في حدث اغلاق ورقة العمل كما تلاحظ 

وسوف يحفظ نسخة تلقائية بتاريخ اليوم .. أسهل واحسن 
وذلك في دليل في نفس المجلد الذي به ملف العمل .. باسم saveit ... قم بانشائه على جهازك

Private Sub Workbook_Deactivate()
Dim saveFilename As String
Dim savedate As String
savedate = Format(Date, "yyyyMMdd")
Application.DisplayAlerts = False
saveFilename = ThisWorkbook.Name
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\saveit\" & saveFilename & savedate
Application.DisplayAlerts = True
End Sub

 

 

[أ / محمد صالح]

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

 

بالتوفيق 

[احمد خالد الحداد]

جزاك الله خير ممكن تبعت الكود