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

[ehabaf2]

السلام عليكم محتاج تعديل الكود التالى لعمل نسخة احتياطية للملف و ينفذ عند غلق ورقة العمل

و شكرا لحضراتكم

Sub copy1()
Dim Extension$
Dim savePathName As String
Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xlsm"
savePathName = "Z:\ÇáÊÞæíã\ehab Share\ÈÑäÇãÌ 2023\"
    On Error Resume Next
    Application.DisplayAlerts = False
    GetAttr (savePathName)
    Select Case Err.Number
    Case Is = 0
        Application.DisplayAlerts = False
        ThisWorkbook.SaveCopyAs savePathName & Extension
        Application.DisplayAlerts = True
    Case Else
        MkDir savePathName
        ThisWorkbook.SaveCopyAs savePathName & Extension
    End Select
    On Error GoTo 0
End Sub

 

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

يوجد اختلاف بين العنوان ومضمون الموضوع

فإذا كنت تريده عند إغلاق ورقة العمل يمكنك وضع الكود بدون أول وآخر سطر في حدث إلغاء تفعيل الشيت

Private Sub Worksheet_Deactivate()

End Sub

ةإذا كان المفصود عند إغلاق الملق كله فيمكنك وضعه في حدث قبل إغلاق مصنف العمل thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

بالتوفيق

[ehabaf2]

الاستاذ أ / محمد صالح

الف الف شكر لحضرتك التعديل ممتاز فعلا كنت عاوز ينفذ الكود عن غلق الملف بالكامل و جربنته شغال تمام

الف الف شكر لحضرتك ربنا يحفظك و يعزك و يبارك فيك