بسم الله الرحمن الرحيم
الكود التالي باذن الله يعجبك و يكون عند حسن الظن :
()sub ex
dim a
application.activeworkbook.save
( "تحذير" ,36,"أنت بصدد الخروج من البرنامج ..فهل تريد الخروج فعلاً ؟ ")a =msgbox
if a =6 thenapplication .quit
end sub
للشرح لكي يكون الرد وافي
اولا يتم حفظ كتاب العمل قبل الإغلاق
عند الضغط علي كلمة خروج تظهر لك رسالة تحذير بانك علي وشك الخروج من البرنامج و تعطيك خيارين yes & no إذا ضغطت نعم يتم الخروج و إذا ضغطت لا يتم الإلغاء
الملف مرفوع علي الرابط:
http://www.dubaiupload.com/DOWNLOAD/452932133/كود الخروج المطلوب.xlsm
لم استطع الرفع علي المنتدي
لا تنساني من الدعاء .