اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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