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

[جوده]

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

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

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

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

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

2

[ahmedabo1]

انا عندي نفس المشكلة السابقة ارجو من الاستاذ يحيي ان يفيدنا في هذه المشكلة وجزاه الله خير الجزاء عن كل مجهوداته الرائعه

[جوده]

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

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

Private Sub Workbook_BeforeClose(Cancel As Boolean

Application.DisplayAlerts = False

ActiveWorkbook.Save

Application.DisplayAlerts = True

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