كيفية حفظ وإغلاق المصنف بعد عدم النشاط لفترة معينة من الوقت؟

في بعض الأحيان ، قد تغلق المصنف بطريق الخطأ عندما تكون مشغولاً بشؤون أخرى لفترة طويلة مما قد يؤدي إلى فقد بعض البيانات المهمة في المصنف. هل هناك أي حيل لحفظ المصنف وإغلاقه تلقائيًا إذا قمت بإلغاء تنشيطه لفترة معينة من الوقت؟

حفظ المصنف وإغلاقه تلقائيًا بعد عدم النشاط لفترة معينة من الوقت باستخدام VBA

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

---

حفظ المصنف وإغلاقه تلقائيًا بعد عدم النشاط لفترة معينة من الوقت باستخدام VBA

لا توجد وظيفة مضمنة في Excel لحل هذه المشكلة ، ولكن يمكنني تقديم رمز ماكرو يمكن أن يساعدك في حفظ المصنف وإغلاقه بعد عدم النشاط في وقت معين.

1. قم بتمكين المصنف الذي تريد حفظه وإغلاقه تلقائيًا بعد عدم النشاط لمدة ثوانٍ معينة ، ثم اضغط على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة لخلق وحدة البرنامج النصي ، ولصق الرمز أدناه عليه. انظر لقطة الشاشة:

Dim CloseTime As Date
Sub TimeSetting()
    CloseTime = Now + TimeValue("00:00:15")
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=False
 End Sub
Sub SavedAndClose()
    ActiveWorkbook.Close Savechanges:=True
End Sub

3. ثم في مستكشف المشروع جزء ، انقر نقرًا مزدوجًا هذا المصنف، والصق الكود أدناه في النص المجاور. انظر لقطة الشاشة:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call TimeStop
End Sub

Private Sub Workbook_Open()
    Call TimeSetting
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Call TimeStop
   Call TimeSetting
End Sub

4. اذهب للنقر المزدوج على الوحدة التي أدخلتها في الخطوة 2 ، واضغط F5 مفتاح لتشغيل الكود. انظر لقطة الشاشة:

5. ثم بعد 15 ثانية ، يظهر مربع حوار لتذكيرك بحفظ المصنف ، والنقر فوق نعم لحفظ وإغلاق المصنف.

نصيحة:

(1) في الكود الأول ، يمكنك تغيير وقت عدم النشاط إلى آخر في هذه السلسلة: Now + TimeValue ("00:00:15")

(2) إذا لم تقم بحفظ المصنف من قبل ، فإن ملف حفظ باسم سيظهر مربع الحوار أولاً ويطلب منك حفظه.

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...