اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود غلق الجهاز بعد مدة من ترك ملف غير نشط


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

الاخوة الكرام فكرة الملف تتلخص في انك لو كنت تعمل على ملف اكسل و تركته مفتوحا و غادرت المكان فان الكود بعد مدة سيغلق الملف و الجهاز يمكن تجربة الملف و لكن مع الحرص على حفظ اي عمل آخر على الجهاز

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

السلام عليكم

يا يحياوي ما هذا الاحتراف عمل اكثر من رائع ومميز

اعرف ان لديك الكثير الكثير الكثير

وفي كل يوم ننتظر منك المزيد

بارك الله فيك وحفظك الله من كل مكروه

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

رائع أخي يحياوي

كل عام أنتم بخير

ولمن يريد إغلاق الملف وعدم إطفاء الجهاز

يضع رمز التعليق قبل السطر التالي


	  Shell "shutdown -s -t 02", vbHide

لأنه هو المسئول عن إطفاء الجهاز

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

  • 1 month later...

رائع أخي يحياوي

كل عام أنتم بخير

ولمن يريد إغلاق الملف وعدم إطفاء الجهاز

يضع رمز التعليق قبل السطر التالي


	  Shell "shutdown -s -t 02", vbHide

لأنه هو المسئول عن إطفاء الجهاز

كود روائع من استاذ الروائع

احترامى وتقديرى لشخصك الرائع

سؤال كيف يمكن استاذنا

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

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

ولو اردنا ان نجعله بدل ان يغلق يظهر فورم لددينا اسمه form 1

احترامى

تم تعديل بواسطه abouelhssan
رابط هذا التعليق
شارك

لتحديد المدة التي يتم تنفيذ الإجراء بعدها نغير في هذا السطر من sub timer


	vartimer = Format(Now + TimeSerial(0, 2, 0), "hh:mm:ss")

حيث أن الدالة timeserial تضيف على الوقت الحالي وأول رقم للساعات وثاني رقم للدقائق وثالث رقم للثواني ............... ولإظهار نموذج إسمه userform1 بعد انتهاء المدة المحددة نغير الكود داخل الإجراء Sub yahm() إلى userform1.show ليصبح

Sub yahm()

userform1.show

end sub

مع حذف الكود الخاص بحفظ الملف وإطفاء الجهاز

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

احمر وجهنا خجلا من كرمك علينا استاذنا

بميزان حسناتك امين

والله احبك فى الله

بس استاذنا ممكن حضرتك تجرى تجربة على الملف فلم يظهر

الform1

بعد المدة التى هى 2 دقيقة

احترام شديد جداااااااااااااا

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

الاخ الحبيب محمد صالح اشكرك كثيرا على التوضيح و الاضافة

بالنسبة لطلب الاخ الكريم ابو الاحسان لا حظ الملف التالي ملاحظة لا تقم باي حركة في الملف لكي يعمل الكود

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

احمر وجهنا خجلا من كرمك علينا استاذنا

بميزان حسناتك امين

والله احبك فى الله

بس استاذنا ممكن حضرتك تجرى تجربة على الملف فلم يظهر

الform1

بعد المدة التى هى 2 دقيقة

احترام شديد جداااااااااااااا

أخي الكريم أنا استعملت في الكود أن اسم النموذج userform1

فإذا كان النموذج لديك له اسم مختلف يمكنك كتابة اسم النموذج ثم الوسيلة show

فمثلا إذا كان النموذج لديك اسمه form1 يمكنك فتحه بعد المدة المحددة بالكود التالي

form1.show

وليس userform1.show

أتمنى أن يكون الأمر واضحاً

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

  • 3 months later...

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