اغلاق وحفظ الملف تلقائيا عند الخمول

[El_Desouky]

اريد كود لاغلاق وحفظ الملف تلقائيا عند الخمول لفتره ٥ دقائق 

[abouelhassan]

4 ساعات مضت, El_Desouky said:

اريد كود لاغلاق وحفظ الملف تلقائيا عند الخمول لفتره ٥ دقائق 

انا اسف اخى طريقة عرض طلبك يجب ان تبدأ بالسلام عليكم اخوانى وتكتب طلبك ودعم الطلب بملف عموما جرب واخبرنى 

يمكنك وضع الكود في وحدة VBA في ملف Excel وسيعمل تلقائيًا بمجرد فتح الملف. إليك الخطوات لوضع الكود وجعله يعمل بشكل تلقائي بدون الحاجة لزر:

1. افتح ملف Excel الذي تريد إضافة الكود إليه.
2. اضغط `Alt` + `F11` لفتح محرر VBA.
3. في القائمة، اختر `Insert` > `Module` لإنشاء وحدة VBA جديدة.
4. الصق الكود في وحدة VBA التي تم إنشاؤها.
5. اضغط `Ctrl` + `S` لحفظ الملف.
6. أغلق محرر VBA.
7. أغلق الملف وأعد فتحه.

الآن، سيعمل الكود تلقائيًا عند فتح الملف، حيث سيقوم بحفظ وإغلاق الملف تلقائيًا بعد مرور 5 دقائق من الخمول.

Dim StartTimer
Const IdleTime = 5 ' وقت الخمول بالدقائق

Sub ResetTimer()
    StartTimer = Now
End Sub

Sub CheckIdleTime()
    If (Now - StartTimer) * 24 * 60 > IdleTime Then
        Application.DisplayAlerts = False ' لعدم عرض رسائل التنبيه
        ThisWorkbook.Save ' حفظ الملف
        ThisWorkbook.Close ' إغلاق الملف
        Application.DisplayAlerts = True
    End If
End Sub

Private Sub Workbook_Open()
    StartTimer = Now
    Application.OnTime Now + TimeValue("00:01:00"), "CheckIdleTime" ' فحص الوقت كل دقيقة
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ResetTimer
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ResetTimer
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ResetTimer
End 

 

تم تعديل فبراير 20 بواسطه abouelhassan

[El_Desouky]

السلام عليكم

استاذ ابوالحسن

بعتذر عند مخالفه قواعد المدونه لانى لسه جديد بها 

وبشكر حضرتك على الاكواد الحمدلله اشتغلت بنسبه 100%