كيف تحفظ ملف Excel وإغلاقه تلقائيًا بعد فترة معينة من الخمول؟

في بعض الحالات ، مثل ترك ملف Excel على قرص مشترك ، عندما لا يزال الملف مفتوحًا من قبل المستخدم ، لا يتمكن الآخرون من تحرير المصنف. فكيف تغلق الملف تلقائيًا بعد فترة زمنية معينة من الخمول لتسهيل عمل الآخرين؟ ستساعدك هذه المقالة في طريقة VBA.

حفظ وإغلاق ملف Excel تلقائيًا بعد وقت خمول معين باستخدام رمز VBA

حفظ وإغلاق ملف Excel تلقائيًا بعد وقت خمول معين باستخدام رمز VBA

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

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

---

للحفظ التلقائي وإغلاق ملف Excel بعد فترة معينة من الخمول ، يرجى القيام بما يلي.

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

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

كود فبا 1: الحفظ التلقائي وإغلاق ملف Excel بعد وقت خمول معين

Dim xTime As String
Dim xWB As Workbook

Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
    On Error Resume Next
    xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
    Set xWB = ActiveWorkbook
    If xTime = "" Then Exit Sub
    Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next
    If xTime = "" Then Exit Sub
    Reset
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If xTime = "" Then Exit Sub
    Reset
End Sub

Sub Reset()
    Static xCloseTime
    If xCloseTime <> 0 Then
        ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
    End If
    xCloseTime = Now + TimeValue(xTime)
    ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub

3. ثم انتقل إلى النقر إدراج > وحدة، وانسخ الكود أدناه والصقه في نافذة الوحدة النمطية. انظر لقطة الشاشة:

كود فبا 2: الحفظ التلقائي وإغلاق ملف Excel بعد وقت خمول معين

Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
End Sub

4. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

5. انقر قم بتقديم > حفظ باسم > تصفح. انظر لقطة الشاشة:

6. في ال حفظ باسم مربع الحوار ، الرجاء تحديد مجلد لحفظ الملف ، قم بتسميته كما تريد في مربع اسم الملف ، حدد مصنف Excel ممكن بماكرو من حفظ ك نوع القائمة المنسدلة ، ثم انقر فوق الزر حفظ زر. انظر لقطة الشاشة:

من الآن فصاعدًا ، في كل مرة يتم فيها فتح هذا المصنف ، أ كوتولس ل إكسيل سيظهر مربع الحوار. الرجاء إدخال الوقت الذي ستحفظ فيه وتغلق المصنف بناءً على ، ثم انقر فوق OK .

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

---

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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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