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

[هشــــام الســـورى]

استأذن ممكن  كود  يمكن المستخدم بفتح الملف لحد يوم مثلا ( 1/1/2017 ) بعد التاريخ دة البرنامج يقفل ماحدا يقدر يفتحة

غيرى 

شكرا

[الصـقر]

تفضل اخى الحبيب

ضع هذا الكود فى حدث فتح الملف 

Private Sub Workbook_Open()
If Date > DateValue(" 1/1/2017") Or Date < DateValue(" 1/1/2016") Then
ThisWorkbook.Close
End If
End Sub

يمكنك تغيير التواريخ المذكوره الى اى شئ تحب

تقبل تحياتى

تم تعديل ديسمبر 30, 2015 بواسطه الصـقر

[هشــــام الســـورى]

شكرا 

 اخى الصـقر

 

تم اضافة الكود تمام بس بعد تغيير التاريخ ال 1/1/2017 فعلا قفل ولما رجعت التاريخ الى اليوم لم يتم فتح البرنامج كدة انا ضيعت المستخدم وضيعت نفسى 

انا محتاج بس يرجعلى فى الوقت الى انا محددة وافتح البرنامج انا تانى وامد البرنامج بتاريخ تانى 

 

شكرا

 

 

 

[الصـقر]

اخى الحبيب

انا ميردنيش انك تضيع وضيع الناس انتى برضوا حبيبى

لاحظ ان التاريخ 2016/1/1 لم يأتى بعد لذالك تاريخ اليوم طبيعى مش هيفتح

اما بخصوص ازاى انت تدخل وتعدل قم بايقاف الماكرو ومن ثم تدخل الفيجوال بيسك وتعدل التاريخ وتدخل عادى

المهم هذا كود اخر

Private Sub Workbook_Open()
If Date > DateValue(" 1/1/2017") Or Date < DateValue(" 1/1/2016") Then
Application.Visible = False
Dim q As String
q = InputBox("لفتح الملف يتطلب كلمة مرور ")
If IsNull(q) Or q = "" Or q <> "123" Then
 MsgBox "كلمة المرور غير صحيحه سيتم غلق الملف ", vbCritical, " عفوا"
Application.DisplayAlerts = False
ThisWorkbook.Close
Else
Application.Visible = True
End If
End If

End Sub

كلمة المرور لفتح الملف فى حال كان خارج الفتره المذكوره هو 123 طبعا يمكن انت تغيره الى اى رقم سرى اخر

تقبل تحياتى

التحكم فى فترة صلاحية الملف.zip

تم تعديل ديسمبر 30, 2015 بواسطه الصـقر