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