مطلوب شفرة تعمل على عدم فتح الملف بعد فترة معينه

[سراب الليل]

مطلوب شفرة تعمل على عدم فتح الملف بعد فترة معينه

[علي السحيب]

السلام عليكم،

ضع الكود التالي في This Wrokbook .. وقم بتغيير التاريخ 3005/1/1إلى التاريخ الذي تود عنده توقف فتح الملف.

Private Sub Workbook_Open()
If Date >= #1/1/3005# Then
 Application.Quit
End If
End Sub