كيف اجعل البرنامج يتوقف عند تاريخ معين

[skyblue]

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

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

تحياتي

[ابو اسامة العينبوسي]

السلام عليكم

Private Sub Workbook_Open()

If Date > #5/1/2008# Then

Application.ActiveWorkbook.Close savechanges = yes

End Sub

[code]

هنا البرنامج لا يفتح بعد تاريخ 1/5/2008 او اي تاريخ تحدده انت

لكن اذ اتم ارجاع التاريخ في الجهاز الى الوراء يفتح ( في اعدادات التاريخ في الكمبيوتر )

تم تعديل يونيو 24, 2007 بواسطه ابو اسامة العينبوسي