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

[حاتم عيسى]

أرجوا من مشرفي ورواد المنتدى الغالي المساعدة لتصحيح كود انتحار ملف الاكسيل في وقت محدد.

حيث أريد أن يقوم الملف بحذف نفسه في تاريخ محدد حتى ولو تم ارجاع تاريخ الجهاز إلى ما قبل هذا التاريخ .

شكرا لكم جميعًا مقدمًا.

مرفق الملف

انتحار ملف الاكسل.xlsm

[أحمد يوسف]

تفضل هذا الفيديو به طلبك ... للأسناذة ساجدة العزاوى لها منا كل المحبة والإحترام

أو يمكنك التعديل على كودك ليصبح هكذا

Private Sub Workbook_Open()
With Sheet1
If Date <= DateValue("3/10/2020") Or .Range("xfd1").Value <= DateValue("3/10/2020") Then Exit Sub
MsgBox "This workbook has expired.", 48, "Goodbye."
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close False
End With
End With
End Sub