استفسار عن جلب بيانات اخر عمليه حفظ تتم

[ابو ايسل]

السلام عليكم

مرفق شيت يوضح المطلوب 

لماذا تقوم برفع ملف مشفر به الأكواد كيف يتم وضع الكود لتجربته ؟!!!!!

مثال للمطلوب.xlsm

[حسين مامون]

ضع الكود في حدث اغلاق الملف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("main")
.[d3] = Val(.[d3]) + 1
.[d4] = Format(Now(), "dd-mm-yyyy hh:mm:ss")
End With
End Sub

 

[ابو ايسل]

شكرا اخي حسين هو ده المطلوب