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

طلب اضافة الى كود الشاشة الافتتاحية


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

الاستاذ تحيى حسين كود الشاشه الافتتاحية عل رائع وجميل ولكن عندتطبيقة بعد زنك طبعاا فى ملف كنترول شيت مكون من 11 ورقة عمل بها ميكروهات ودوال وغيرها وجدت الاتى

1_ عند كتابة اى رقم سرى خطا اومستخدم خطا فى الشاشه الافتتاحيةيحاول ان يغلق البرنامج ولكن ت تظهر رسالة طلب الحفظ وبها ثلاث اوامر وعند الضغط امر لا او الغى الامر اجد ان البرنامج قد فتح بالرغم من اسرى خطا ارجو اضافى كود يغلق البرنامج بدون حفظ

2-- عند عمل سرى للصفحة الموجود بها الاكواد وال userform لاستجيب الشاشة الافتتاحية

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

لك من كل شكر واحترام وتقدير

2

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

الاخ احمد عبده اسف للتاخير ولكن المنتدى ارسل احد الاساتذه حلا لهذه المشكلهان لم تكن قد تم حلها لديكم فاسمح لى بارسال الحل وهو

الكود الاتى )كود الغلق بدون حفظ

Private Sub Workbook_BeforeClose(Cancel As Boolean

Application.DisplayAlerts = False

ActiveWorkbook.Save

Application.DisplayAlerts = True

بارك الله فى هذا المنتدى وفى جميع الاخوه

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

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