صلاحية ملف بواسطة كود

[عزيز عرابي]

السادة الأكارم ,,,

 

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

 

مرفق ملف تم تحميله من منتدانا الرائع

 

عند فتح الملف تظهر رسالة تحذيرية لادخال كلمة السر لفتح الملف

 

اريد عند فتح الملف ان لا تظهر الرسالة في حال عدم تجاوز التاريخ , بمعنى ان لا تظهر الرسالة التحذيرية الا اذا كان تاريخ الكمبيوتر اكبر من "01-05-2014"

 

و لكم كل الشكر

كلمة المرور0.rar

[عزيز عرابي]

up

[عزيز عرابي]

up

[شوقي ربيع]

غير في الشرط فقط من

If Date > "01-05-2014" Then

الى

If Date < "01-05-2014" Then

[عزيز عرابي]

السادة الأكارم و الأستاذ شوقي ربيع الغالي

 

ليست المشكلة في الشرط إن كان أكبر أو أصغر

 

المشكلة انني لا اريد ان تظهر المسج بوكس أو الرسالة التحذيرية الا اذا تحقق شرط تجاوز التاريخ

 

و لكم الشكر

[شوقي ربيع]

Private Sub Workbook_Open()
If Date >= CDate("01/05/2014") Then
M = MsgBox("Çä ßÇäÊ áÏíß ßáãÉ ÇáãÑæÑ ÝÇÖÛÙ Úáì äÚã", vbCritical + vbYesNo, "ÊÃßíÏ")
If M = vbNo Then
Application.Quit
Else
If M = vbYes Then
If pasword = InputBox("ÇÏÎá ßáãÉ ÇáãÑæÑ åäÇ", "ßáãÉ ÇáãÑæÑ") Then
   
   Exit Sub
GoTo 1
Else
MsgBox "áíÓ áÏíß ÇáÍÞ áÝÊÍ ÇáÈÑäÇãÌ", vbCritical, "ÎØÃ"
Application.Quit
End If: End If: End If: End If
1 End Sub

[عزيز عرابي]

يعطيك الف عافية أستاذ شوقي ربيع

 

جربت الكود لكن الغريب ان الرسالة التحذيرية لا ززالت تظهر حتى لو لم يتم تجاوز تاريخ صلاحية الملف

 

و لكم الشكر

[حمادة عمر]

بعد اذن اخي الحبيب / شوقي ربيع .. جزاه الله خيرا

قم بتعديل الكود الخاص باخي شوقي الي الكود التالي (تعديل طفيف جدا  )  ... الذي اعلم انه  قد نسيه

Private Sub Workbook_Open()
Dim M, pasword
pasword = "1234"

If Date >= CDate("01/05/2014") Then
M = MsgBox("C? ?C?E ?I?? ???E C????? ?C?UU ??? ???", vbCritical + vbYesNo, "E???I")
If M = vbNo Then
Application.Quit
Else
If M = vbYes Then
If pasword = InputBox("CII? ???E C????? ??C", "???E C?????") Then
   Sheet1.Select
   
   Exit Sub
GoTo 1
Else
MsgBox "??? ?I?? C??? ??E? C?E??C??", vbCritical, "I??"
Application.Quit
End If: End If: End If: End If
1 End Sub

تقبل خالص تحياتي

 

ملفات مرفقة

 

Booeeeeeeeeee.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ الحبيب حماده عمر

رجاء توضويح

 

M = MsgBox("C? ?C?E ?I?? ???E C????? ?C?UU ??? ???", vbCritical + vbYesNo, "E???I")
 

If pasword = InputBox("CII? ???E C????? ??C", "???E C?????") Then

MsgBox "??? ?I?? C??? ??E? C?E??C??", vbCritical, "I??"
 

لانها لا تظهر بصوره مقروئه

جزاك الله خيرا

تم تعديل أبريل 24, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[عزيز عرابي]

الاستاذ ابو حنين الغالي

 

مشكور لمرورك و الكود مقروء بشكل جيد في الملف المرفق الذي رفعه الاستاذ حمادة عمر

 

و لكم الشكر جميعاً

[حمادة عمر]

تقبلوا خالص تحياتي

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الا الغالى حماده

 

برجاء صورة الكودى لدى تظهر غير مقروئه

تظهر بهذا الشكل

برجاء كتابه  ما بالون الاحمر

جزاك الله خيرا

 

Private Sub Workbook_Open()
Dim M, pasword
pasword = "1234"

If Date >= CDate("01/05/2014") Then
M = MsgBox("C? ?C?E ?I?? ???E C????? ?C?UU ??? ???", vbCritical + vbYesNo, "E???I")
If M = vbNo Then
Application.Quit
Else
If M = vbYes Then
If pasword = InputBox("CII? ???E C????? ??C", "???E C?????") Then
   Sheet1.Select
  
   Exit Sub
GoTo 1
Else
MsgBox "??? ?I?? C??? ??E? C?E??C??", vbCritical, "I??"
Application.Quit
End If: End If: End If: End If
1 End Sub

[حمادة عمر]

تفضل اخي الكريم

Private Sub Workbook_Open()
Dim M, pasword
pasword = "1234"

If Date >= CDate("01/05/2014") Then
M = MsgBox("ان كان لديك كلمة المرور فاضغط علي نعم", vbCritical + vbYesNo, "تأكيد")
If M = vbNo Then
Application.Quit
Else
If M = vbYes Then
If pasword = InputBox("ادخل كلمة المرور هنا", "كلمة المرور") Then
   Sheet1.Select
   
   Exit Sub
GoTo 1
Else
MsgBox "ليس لديك الحق في فتح البرنامج", vbCritical, "خطأ"
Application.Quit
End If: End If: End If: End If
1 End Sub

تقبل خالص تحياتي

[۩◊۩ أبو حنين ۩◊۩]

جزاك الله كل الخبر اخى حماده

سلمت يداك

لك منى خالص التقدير

[عزيز عرابي]

أشكركم جميعاً على مروركم الكريم