اريد دالة او كود او طريقة تعطل الملف

[ابن الجنوب]

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

انا اريد دالة او كود او طريقة بحيث يتوقف الملف ولا يعمل عند حلول تاريخ معين ويصبح الملف الذي صممته عديم الفايدة.

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

[Ali Mohamed Ali]

وعليكم السلام

يمكنك استخدام هذا الكود بعد وضعه فى حدث This Workbook

Private Sub Workbook_Open()
MsgBox "Ok"
MsgBox DateDiff("d", "10/Jun/2019", Date)
If DateDiff("d", "10/Jun/2019", Date) > 1 Then
MsgBox "Ok1"
Application.ActiveWorkbook.Close
End If
MsgBox "Ok2"
End Sub

 

Expire.xls

[ابن الجنوب]

اهلا بيك عمو علي محمد 

اشكرك وأسأل الله الصحة والعافية لك 

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

انا اريد ملف ينتهي في وقت معين وبعد ذلك الوقت يصبح الملف عديم الفائدة.

ولا يقدر احد يستفيد منه الا بحضوري 

فعندي انا وحدي الحل.

[ابن الجنوب]

مساء الخير من يفيدني جزاه الله خيرا