لعمل نهاية لصلاحية الملف وعدم فتحه الا بكلمة مرور

[ياسر العربى]

بسم الله الرحمن الرحيم

 اليكم نموذج لانتهاء صلاحية الملف عندما يكون التاريخ الحالي اكبر من التاريخ الموجود في الخلية A1

يقوم البرنامج بعمل 

Application.Visible = False

ويعرض لنا فورم يفيد انتهاء المدة وتاكيد كلمة المرور

وعند كتابة كلمة المرور خطأ لك5  محاولات وبعدها يغلق البرنامج 

اما ان كانت صحيحة وتحقق الشرط

If TextBox1.Value = "aseel" Then

Me.Hide
Application.Visible = True

كلمة المرور aseel

طبعا واكيد ايقاف الماكرو هيفتح الملف عادي ونضيع الحماية نعمل ايه بقي

نيحي في الحدث

Private Sub Workbook_Open()
Sheet1.Visible = xlSheetVeryHidden
End Sub

ونخفي الشيت عشان ميشفشي شغلنا رخامة بقي

ولما يتحقق الحدث 

If TextBox1.Value = "aseel" Then
'Unload Me
Me.Hide

Application.Visible = True
'نحط هنا كود اظهار الشيت مرة اخرى
sheet1.Visible = xlSheetVisible

ياريت اكون وصلت المعلومة صح 

واي ملحوظة  او خطأ انا موجود

انتهاء صلاحية الملف.rar

[وائل الاسيوطي]

بسم الله الرحمن الرحيم

 اليكم نموذج لانتهاء صلاحية الملف عندما يكون التاريخ الحالي اكبر من التاريخ الموجود في الخلية A1

يقوم البرنامج بعمل 

Application.Visible = False

ويعرض لنا فورم يفيد انتهاء المدة وتاكيد كلمة المرور

وعند كتابة كلمة المرور خطأ لك5  محاولات وبعدها يغلق البرنامج 

اما ان كانت صحيحة وتحقق الشرط

If TextBox1.Value = "aseel" Then

Me.Hide
Application.Visible = True

كلمة المرور aseel

طبعا واكيد ايقاف الماكرو هيفتح الملف عادي ونضيع الحماية نعمل ايه بقي

نيحي في الحدث

Private Sub Workbook_Open()
Sheet1.Visible = xlSheetVeryHidden
End Sub

ونخفي الشيت عشان ميشفشي شغلنا رخامة بقي

ولما يتحقق الحدث 

If TextBox1.Value = "aseel" Then
'Unload Me
Me.Hide

Application.Visible = True
'نحط هنا كود اظهار الشيت مرة اخرى
sheet1.Visible = xlSheetVisible

ياريت اكون وصلت المعلومة صح 

واي ملحوظة  او خطأ انا موجود

انتهاء صلاحية الملف.rar

 اخي العزيز  ياسر لقد اثرت موضوعا كنت ابحث فيه منذ فتره جزاك الله خيرا 

هل القيت نظره علي هذا الموضوع وتبلغني برأيك ؟

http://www.officena.net/ib/topic/64153-تغيير-تاريخ-صلاحيه-ملف/

[ياسر خليل أبو البراء]

بسم الله ما شاء الله تبارك الرحمن

يبدو أن المنتدى قد اكتسب محترف جديد .. واصل أخي الحبيب ياسر بلا فواصل

وعلى رأي الصقر (حسام عيسى) إنت بتشتغلنا وتقول مبتديء (عيب عليك الكلام ده)

 

الحمد لله أصبحت الحركة الياسرية في المنتدى هي المهيمنة للآن

ياسر فتحي البنا .. ياسر الشيخ .. ياسر خليل أبو البراء .. ياسر العربي أبو أسيل .. والبقية تأتي

تقبل تحياتي

[ياسر العربى]

اخي العزيز وائل الاسيوطي مشكور مرورك الكريم وسأقوم بعمل اللازم في موضوعك باذن الله

 

اخي واستاذي وحبيبي ياسر خليل ابو البراء  واخونا الصقر حبيبي حسام عيسى واخونا  ابو يوسف عشان دا عربي وتبعنا  وجميع اخواننا في هذا المنتدي العظيم  اللهم  يسر امورنا ولا تعسرها

انا يشرفني ان اكون اخ وصديق لكم في هذا المنتدي العظيم

وان شاء الله اكون عند حسن ظن الجميع

تقبل فائق احترامي

ياسر العربي

 

[ياسر العربى]

الاخ وائل الاسيوطي ارجوا ان يكون هذا المثال يفي بالغرض لو في اي ملاحظات انا موجود

 

aseel.rar

[نبيل عبد الهادي]

وان كان الرد متاخر . ولكن العمل رائع ومهم جدا ... بارك الله فيك اخ ياسر العربي