سؤال حول الصلاحية

[mselmy]

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

ارجو من الاخوه الاعزاء بمنتدى اوفيسنا المساعدة

عندى ملف اكسل واريد ان اضع عليه تاريخ صلاحية حيث ان الملف لا يفتح اذا وصلت الى هذا التاريخ

وتفضلوا بقبول وافر الاحترام

محمد سلمى

[حسام نور]

ضع الكود التالي في This Woorkbook

Private Sub Workbook_Open()
 If Date >= #1/1/2005# Then
  Application.Quit
 End If
End Sub

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

وشكراً

[ابو رائد]

الاستاذ حسام

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

فضلاً:

اين توجد (This Woorkbook) حتى اكتب الكود فيها؟

:pp:

ولك خالص تحياتي ...

[حسام نور]

- أفتح ملف الأكسيل

- أضغط Alt+F11

- ستظهر لك شاشة الفيجول بيسك

- من الجهة اليسرى ستجد This Woorkbook

- أضغط عليها مرتين

- ضع الكود في الجهة اليمنى بالصفحه

- أغلق شاشة الفيجول بيسك

- ستعود للملف

- أغلق الملف

* لا تنسى تغيير التاريخ حسب الرغبه *

بالتوفيق

[ابو رائد]

جزاك الله خيراً استاذي حسام

وشكراً لك على المسارعة بالجواب

فائق التحيات

[mselmy]

شكرا جزيلا للاستاذ / حسام على هذا الكود الرائع وشكرا ايضا للاهتمام والرد السريع

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

واشكرك مره اخرى

اخيك / محمد سلمى

[حسام نور]

- يوجد موضوع للمشرف محمد طاهر لتغيير مستوى الصلاحيه من مرتفع لمتوسط تجده في خلاصة مشاركات الأكسيل

- قد يفيدك فيما تريد أو لا ...

[ايمن ابوأنس]

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

شكرا كثيرا اخ حسام على هذا الكود

سؤال لو اراد ان يلغي هذا الكود كيف السبيل الى ذلك علما انه بمجرد ان تفتح هذا الملف فان برنامج الاكسل يغلق تماما .

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

[جمال حسين رشدان]

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

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