المحتوى
عند الانتهاء من انتهاء صلاحية ورقة عمل Excel ، فإنك تمنع المستخدمين من عرض المستند بعد وقت معين. يعد هذا خيارًا جيدًا إذا لم تعد المعلومات الواردة في المستند دقيقة أو صالحة بعد التاريخ المعني. عند انتهاء صلاحية ورقة عمل Excel ، لم يعد يتم فتح المستند ، وتظهر رسالة على الشاشة. محرر Visual Basic ، المثبت تلقائيًا بجوار Microsoft Office في الإصدارات بين 1997 و 2007 ، قادر على تكوين انتهاء صلاحية المستند.
الاتجاهات
-
افتح Microsoft Excel ، انتقل إلى قائمة "ملف" واختر "فتح". ابحث عن الملف الذي تريد انتهاء صلاحيته وانقر نقرًا مزدوجًا على الاسم لفتحه.
-
اضغط على "Alt + F11" لفتح محرر Excel Visual Basic. استخدم "Ctrl + R" للتبديل إلى نافذة "Project Explorer" أو اذهب إلى قائمة "View" ، وانقر على "Other Windows" واختر "Project Explorer" من القائمة. خيارات.
-
انقر بزر الماوس الأيمن فوق "ThisWorkbook" (هذا العمل) في نافذة "Project Explorer". حدد "عرض الكود" من قائمة الخيارات المتاحة.
-
أدخل الرمز الذي يؤدي إلى انتهاء صلاحية ورقة العمل في المكان المناسب. سيعود الرمز الصحيح رسالة إلى المستخدم تُظهر تاريخ انتهاء الصلاحية وعدد الأيام المتبقية حتى انتهاء صلاحية ورقة العمل. يجب أن يبدو كما يلي: Autodate Exdate Exdate Exdate = "تاريخ 01/12/10 " Exdate ، ثم MsgBox ( "انتهت صلاحية جدول البيانات ") ActiveWorkbook.Close End Sub أدخل التاريخ الذي يجب أن تنتهي فيه ورقة العمل على السطر "exdate =" وأي رسالة تفضل تقديمها مع ورقة العمل. إذا MsgBox ( "Workbook صالح حتى " & exdate - Date & انتهت صلاحيته بالفعل ، بدلاً من "انتهت صلاحية جدول البيانات" (انتهت صلاحية ورقة العمل).
-
ارجع إلى ورقة عمل Excel المفتوحة ، انتقل إلى قائمة "ملف" وحدد "حفظ" لحفظ عملك باستخدام الماكرو المضافة الجديد. أغلق عملك وأعد فتحه في Excel. يجب أن تظهر الرسالة التي أدخلتها في الماكرو ، والتي تبين تاريخ انتهاء صلاحية الملف وعدد الأيام المتبقية حتى انتهاء صلاحية الملف.
نصائح
- لا تحتاج إلى حفظ نسخة من ورقة عمل Excel قبل إضافة الماكرو. إذا كنت تريد عرض ورقة العمل أو تحريرها بعد وقت انتهاء الصلاحية ، فاضغط على مفتاح "Shift" أثناء فتح الملف. هذا سيجعل من المستحيل تشغيل الماكرو.