اغلاق الاكسل في حالة الخمول

[الســـــــاهر]

السلام عليكم ورحمة الله و بركاته

 

 

 

الاخوة الافاضل

 

 

 

هل يمكن عمل كود يقوم بحفظ المستند و اغلاقه في حالة الخمول لمدة 15 دقيقة مثلا

[محمد ابو البـراء]

السلام عليكم ورحمة الله وبركاته

أخي الكريم/ استاذ الساهر

لعلك تجد بغيتك في هذا الرابط

http://www.officena.net/ib/index.php?showtopic=39065

[الســـــــاهر]

الاخ الفاضل 

محمد 28

 

اشكرك على الرابط هذا المطلوب بالضبط

 

جزاك الله خير

[محمد ابو البـراء]

وجزاك الله خيراً أخي الحبيب

لاثراء الموضوع اكثر

هذا هو الكود الخاص بالعملية

 

Option Explicit

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



Public vartimer As Variant
 
Sub Timer()
    Call yahp
    vartimer = Format(Now + TimeSerial(0, 15, 0), "hh:mm:ss")
    If vartimer = "" Then Exit Sub
    Application.OnTime TimeValue(vartimer), "yahm"
End Sub
Sub yahm()
    ActiveWorkbook.Save
      Application.DisplayAlerts = False
      Application.Quit
      'Shell "noshutdown -s -t 02", vbHide'
      
      
End Sub
Sub yahp()
    On Error Resume Next
    Application.OnTime earliesttime:=vartimer, _
    procedure:="yahm", schedule:=False
    On Error GoTo 0
End Sub
 

هذه الاجزاء التي ستتغير في الكود

وضع الكلمة

Shell "noshutdown -s -t 02", vbHide

بين علامتين التعليق لتكون هكذا

'Shell "noshutdown -s -t 02", vbHide'

ليمنع غلق الجهاز

وتغيير الرقم ليكون 15 كما علمته باللون الاحمر  في الكود

ليغلق بعد 15 دقيقة ..

واذا اردنا تغيير الوقت

من هذا الجزء

TimeSerial

(0, 15, 0)

فالرقم الاول من اليسار يعني الساعة

الرقم الاوسط يعني الدقائق

الرقم الاول من جهة اليمين يعني الثواني

تم تعديل يناير 14, 2014 بواسطه محمد ابو البـراء

[محمود_الشريف]

بارك الله فيكم أخى فى الله

الأستاذ / محمد 28

وتقبل منى وافر الإحترام والتقدير

[محمد ابو البـراء]

 

بارك الله فيكم أخى فى الله

الأستاذ / محمد 28

وتقبل منى وافر الإحترام والتقدير

 

دائما مميز أخي الحبيب/ محمود الشريف

بتداخلاتك العطرة .... :fff: :fff: