اذهب الي المحتوي
أوفيسنا

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


mselmy

الردود الموصى بها

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

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

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

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

محمد سلمى

رابط هذا التعليق
شارك

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

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

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

وشكراً :fff:

رابط هذا التعليق
شارك

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

- أضغط Alt+F11

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

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

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

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

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

- ستعود للملف

- أغلق الملف

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

بالتوفيق

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

  • 6 months later...

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

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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information