السلام عليكم ورحمة الله وبركاته إليك الكود الذي سينهي صلاحية الملف 28/3/2008
Private Sub Workbook_Open()
Dim Expiry As Date
'If today's date > expiry date, the file will close
Expiry = DateValue("2008/3/28")
If Date > Expiry Then
Application.EnableEvents = False
Call MsgBox("عفوا الملف أغلق فى " & Expiry & ". من فضلك ارجع إلى الأخ المستفيد نت لشراء النسخة الأصلية وشكراً", vbCritical, "لا يمكنك فتح الملف")
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
افتح ملف الإكسل--أدوات---ماكرو--محرر فيجوال بيسك سيفتح لك محرر الفيجوال اختر الورقة thisworkbook والصق فيها الكود السابق طبعا من خلال هذا الكود تعدل التاريف فمثلا تستطيع استبدال التاريخ السابق بتاريخ آخر؛كــ: 29/10/2008 وهكذا وبإمكانك تعديل الرسالة التي ستظهر عندا انتهاء المدة وهي موجودة كما ترى بين علامتي تنصيص وإليك ملفك مطبق عليه الكود السابق والشكر للأخوة في المنتدى فهذا من جهودهم وإبداعاتهم لا تنسانا من صالح دعاءك
_____________________________.rar