اذهب الي المحتوي
أوفيسنا

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


اياد م
إذهب إلى أفضل إجابة Solved by حمادة عمر,

الردود الموصى بها

السلام عليكم 

 

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

 

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

 

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

 

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

 

شاكرين لكم 

 

رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم 

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

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

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

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

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

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

 

 

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

  • Like 4
رابط هذا التعليق
شارك

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

اغلاق ملف اكسل بعد 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

  • Like 3
رابط هذا التعليق
شارك

 

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

 

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

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

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

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

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

 

 

رابط هذا التعليق
شارك


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

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

 

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

 

 

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information