السلام عليكم
الاخ الكريم / لؤي الخزرجي
بارك الله فيك
حسب فهمي للطلب !!! اخي الكريم
يتم وضع الاكواد المقصودة في حدث الـ ThisWorkbook
بالشكل التالي ( مع ملاحظة ان الملف لا يفتح بعد التاريخ المحدد في الكود ) برجاء تغييره لمشاهدة طريقة عمل الكود
Private Sub Workbook_Open()
If Date > DateValue("3/3/2015") Then
If InputBox("ÇäÊåÇÁ ÕáÇÍíÉ ÇáÈÑäÇãÌ áÇÚÇÏÉ ÇáÊÝÚíá ÃÏÎá ßáãÉ ÇáÓÑ ") <> "áÄí ÇáÎÒÑÌí" Then
MsgBox "ßáãÉ ÇáãÑæÑ ÎØÇÆÉ "
ThisWorkbook.Close
Else
MsgBox "ÊÝÖá ÈÇáÏÎæá ßáãÉ ÇáãÑæÑ ÕÍíÍÉ "
End If
If CloseMode = vbFormControlMenu Then Cancel = True
MsgBox " !!! ÓæÝ íÊã ÇÛáÇÞ ÇáÈÑäÇãÌ äåÇÆíÇð "
Application.DisplayAlerts = False
Application.Quit
End If
'====================
UserForm2.Show
'====================
Sheet3.Select
Range("b1").Select
'====================
End Sub
تقبل خالص تحياتي