مساعده فى كود

[حسام عبدالمحسن]

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

الاخوة الكرام مطلوب كود يمنع تشغيل الملف بعد تاريخ معين.

بمعنى انى عاوز احدد مدة للملف يشتغل فيها وليكن من1/1/2016   وحتى30/1/2016 بعد هذا التاريخ لن يتم فتح الملف بعد هذا التاريخ

ارجو ان اكون قدرت اوصل الفكرة

وشكرا

[عبدالسلام ابوالعوافي]

Private Sub Workbook_Open()
    If Date < #1/1/2016# Or Date > #1/30/2016# Then Application.Quit
End Sub

 

[حسام عبدالمحسن]

اخى الكريم تم تجربة الكود اكثر من رائع ولكن عند انتهاء التاريخ

اذا قمت بارجاع تاريخ الكمبيوتر  يقوم بتشغيل الملف

اريد عند انتهاء تاريخ الملف وحتى اذا تم ارجاع التاريخ لايمكن تشغيلة مرة اخرى الا عند تجديد تاريخ تشغيل جديد له

[عبدالسلام ابوالعوافي]

قم بانشاء ورقة وسمها EXP

Private Sub Workbook_Open()
    If Sheets("EXP").Range("A1") = 1 Then Application.Quit
    If Date < #1/1/2016# Or Date > #1/30/2016# Then _
    Sheets("EXP").Range("A1") = 1: Application.Quit
End Sub

 

[حسام عبدالمحسن]

اخى العزيز هل بالامكان تطبيق الكود على شيت وارفاقة حيث انى قمت بتجربة الكود ولم ينجح معى

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

يوضع الكود في حدث المصنف .. افتح محرر الأكواد Alt + F11 ثم دبل كليك في نافذة المشروع على ThisWorkbook ثم الصق الكود ..

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

[حسام عبدالمحسن]

تم تجربة الكود وتغيير التاريخ وعند فتح الملف يقوم بظهور هذة الرسالة وعند الضغط على نعم او لا يتم الخروج من الملف   وعند الضغط على الغاء الامر يتم فتح الملف ومرفق صورة للتوضيح

 

 

 

 

 

 

 

 

 

 

 

 

 

تم تعديل مايو 4, 2016 بواسطه حسام عبدالمحسن

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

أخي الكريم لابد من الإطلاع على الرابط التالي (فيه البدايات للتعامل مع الأكواد ومحرر الأكواد ..ضروري جداً تطلع عليه)

الرابط من هنا

[حسام عبدالمحسن]

استاذى العزيز / ياسر

تم الاطلاع على الرابط المرفق وانا لدى بعض من المعلومات المرفقة فى الرابط ولكن لا اعمل اين توجد المشكلة

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

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

حدد المشكلة التي تواجهها بالضبط ..

هل هي نفس المشكلة التي وضعت لها صورة في مشاركتك قبل الأخيرة ..إذا كانت هي المشكلة فأنصحك بالإطلاع مرة ثانية على الرابط ..

إذا كانت مشكلة أخرى فيرجى وضع صورة للمشكلة أو تفصيلها لكي تجد المساعدة المطلوبة من إخوانك

[حسام عبدالمحسن]

استاذى العزيز / ياسر خليل

بعد التحية

حاولا كثيرا مراجعه الكود ومراجعه  الرابط المرفق لعلى اكون قد اخطأت فى خطوة من خطوات تنفيذ الكود ولكن توجد نفس المشكلة

لدى شيت اكسيل بة الكود المطلوب ومطبق علية المطلوب

الملف بداية عملة 2016/5/1 ومده عملة30 يوم

2016/6/1 لان يعمل الملف  (لو قمنا بتأخير تاريخ الكمبيوتر سوف يعم الملف)

المطلوب

اريد عند تاخير التاريخ الى الخلف لن يعمل الملف

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

salary finished.rar===

جرب تغيير تاريخ الكمبيوتر الى هذين التاريخين 

salary finished.rar1/05/2016

1/06/2016

[عبدالسلام ابوالعوافي]

بعد اذن الاستاذ ياسر

جرب

salary finished.rar

[حسام عبدالمحسن]

اخى العزيز / عيدالسلام

اسف على التاخير فى الرد جارى تجربة الملف وسأوافيك بالرد

وشكرا

 

[حسام عبدالمحسن]

اخى العزيز/ عبدالسلام

تم تجربة الملف والطريقة تعمل بنسبة ضئيلة حيث انها مرة تعمل جيدا ومرة اخرى يتم التجربة لاتعمل ويتم فتح الملف فهل بالامكان ايجاد طريقة اخرى

مثلا فى حالة ارجاع التاريخ الى الماضى يتم تعطيل الماكرو او فتح الملف واخفاء الشيتات

اعلم جيدا اننى قد اتعبتكم كثيرا متأسف جدا ولكن هذا الامر هام جدا نظرا لتلاعم المستخدمين بالشيتات وشكرا

[سليم حاصبيا]

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

افقل الملف بواسطة كلمة سر وانتهينا

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

أخي الكريم حسام

ما المشكلة التي تظهر لديك الآن ؟؟ هل جربت الحلول المختلفة التي قدمت لك ...؟؟!!