كيف يمكن حفظ المصنف وإغلاقه تلقائيًا بعد فترة عدم نشاط محددة؟
هل هناك طريقة ذكية تتيح لك حفظ المصنف وإغلاقه تلقائيًا إذا ظلّ غير نشطٍ لفترة زمنية معيّنة، لتجنب فقدان البيانات المهمة نتيجة إغلاقه عن طريق الخطأ أثناء انشغالك؟
إغلاق المصنف تلقائيًا بعد عدم النشاط لمدة زمنية معيّنة باستخدام VBA
إغلاق المصنف تلقائيًا بعد عدم النشاط لمدة زمنية معيّنة باستخدام VBA
لا تتضمّن Excel وظيفةً مدمجةً لحل هذه المشكلة، لكنّي أستطيع تزويدك بكود ماكرو يساعدك على حفظ المصنف وإغلاقه تلقائيًا بعد فترة عدم نشاط معيّنة.
1. فعِّل المصنف الذي تريد أن يُحفَظ ويُغلَق تلقائيًا بعد فترة عدم نشاط محددة (بالثواني)، ثم اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
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) إذا لم تكن قد حفظت المصنف من قبل، فستظهر أولاً نافذةحفظ باسموستُطلب منك حفظه.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل