كود لقفل ملف الاكسل بعد الخمول

[اياد م]

السلام عليكم 

 

لدي ملف اكسل مشارك على عدة جهاز ارغب في كود لأغلاق الملف بعد فترة معينه من الخمول (( دقيقاتان مثلا )) يقوم بإغلاق الملف من غير الحفظ 

 

جربت كود الاستاذ محمد يحياوي 

 

ولم يعمل الكود مخصص لنسخة 32 بيت .. ويغلق الجاهز كامل 

 

انا اريد فقط غلق ملف الاكسل 

 

شاكرين لكم 

 

[حمادة عمر]

السلام عليكم 

الاخ الكريم / اياد م    .. بارك الله فيك 

تقبل خالص تحياتي 

اليك نفس الملف الخاص بالقدير الصديق العزيز / يحياوي .. جزاه الله خيرا 

ولكن بتعديل بسيط ليعمل كما تريد ( اغلاق الملف فقط بعد المدة التي تحددها في بنفسك في الكود من خمول الملف ) 

واليك الملف التالي قم بتجربته واخبارنا بالنتائج 

تقبل خالص تحياتي 

 

 

غلف الملف بعد مدة من ترك ملف غير نشط.xls

[Ali Mohamed Ali]

وعليكم السلام -تفضل

اغلاق ملف اكسل بعد 5 دقائق بكود بدون تدخل من المستخدم

وهذا كود اخر يمكنك استخدامه بوضعه فى حدث ThisWorkbook ____لإغلاق ملف الإكسيل بعد 50 ثانية كمدة خمول

Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
    On Error Resume Next
    xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:50", , , , , 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

ثم اضافة هذا الكود بمديول عادى 

Sub SaveWork1()
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
End Sub

وهذا ملف للعمل مسجل عليه هذه الأكواد

 

 

 

 

حفظ وإغلاق ملف إكسيل تلقائيا بعد وقت خمول معين.xlsm

[اياد م]

 

الف شكر استاذي حمادة عمر

 

يظهر لي خطا هنا 

Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal wReserved&)

الف شكر استاذي على محمد على

نعم انه المطلوب 

جزاك الله الف خير 

 

 

[ابو ايسل]

سؤال يخص هذا الموضوع هل عند اغلاق الملف يتم عمل حفظ او يقوم بقفل الملف فقط

[اياد م]

    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
End Sub

هاذا الموديل يقوم بإغلاق الملف وحفظة 

 

اذا لم ترغب بحفظة احذف السطر ActiveWorkbook.Save

 

 

[ابو ايسل]

جزاك الله خير

[اياد م]

الف شكر استاذي 

الكود جدا جدا جميل