كيف تحفظ ملف Excel وإغلاقه تلقائيًا بعد فترة معينة من الخمول؟
في بعض الحالات ، مثل ترك ملف Excel على قرص مشترك ، عندما لا يزال الملف مفتوحًا من قبل المستخدم ، لا يتمكن الآخرون من تحرير المصنف. فكيف تغلق الملف تلقائيًا بعد فترة زمنية معينة من الخمول لتسهيل عمل الآخرين؟ ستساعدك هذه المقالة في طريقة VBA.
حفظ وإغلاق ملف Excel تلقائيًا بعد وقت خمول معين باستخدام رمز VBA
حفظ وإغلاق ملف Excel تلقائيًا بعد وقت خمول معين باستخدام رمز VBA
للحفظ التلقائي وإغلاق ملف 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 .
وسيتم حفظ المصنف وإغلاقه تلقائيًا بعد وقت الخمول المحدد. انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!