الســـــــاهر قام بنشر يناير 14, 2014 مشاركة قام بنشر يناير 14, 2014 السلام عليكم ورحمة الله و بركاته الاخوة الافاضل هل يمكن عمل كود يقوم بحفظ المستند و اغلاقه في حالة الخمول لمدة 15 دقيقة مثلا رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر يناير 14, 2014 مشاركة قام بنشر يناير 14, 2014 السلام عليكم ورحمة الله وبركاته أخي الكريم/ استاذ الساهر لعلك تجد بغيتك في هذا الرابط http://www.officena.net/ib/index.php?showtopic=39065 رابط هذا التعليق شارك More sharing options...
الســـــــاهر قام بنشر يناير 14, 2014 الكاتب مشاركة قام بنشر يناير 14, 2014 الاخ الفاضل محمد 28 اشكرك على الرابط هذا المطلوب بالضبط جزاك الله خير رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد ابو البـراء قام بنشر يناير 14, 2014 أفضل إجابة مشاركة قام بنشر يناير 14, 2014 (معدل) وجزاك الله خيراً أخي الحبيب لاثراء الموضوع اكثر هذا هو الكود الخاص بالعملية 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 بواسطه محمد ابو البـراء رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 14, 2014 مشاركة قام بنشر يناير 14, 2014 بارك الله فيكم أخى فى الله الأستاذ / محمد 28 وتقبل منى وافر الإحترام والتقدير 1 رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر يناير 14, 2014 مشاركة قام بنشر يناير 14, 2014 بارك الله فيكم أخى فى الله الأستاذ / محمد 28 وتقبل منى وافر الإحترام والتقدير دائما مميز أخي الحبيب/ محمود الشريف بتداخلاتك العطرة .... :fff: :fff: 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها