مطلوب كود لزر الخروج من البرنامج

[aladdin]

السلام عليكم ورحمة الله وبركاته

لو تكرمتم ممكن الحصول على كود لزر الخروج من البرنامج يقوم بالحفظ مباشرة دون السؤال yes + no +cancel

لأنه فى حاله الضغط على cancel يتم إظهار الأشرطة التى تم إخفائها وبذلك يمكن العبث بالبرنامج

وشكراً

تم تعديل مايو 6, 2008 بواسطه aladdin

[romio]

أخي العزيز

إليك الرابط التالي

http://www.officena.net/ib/index.php?showtopic=23373

لعله ما تبحث عنه

تحياتي لك وبالتوفيق

[ابو اسامة العينبوسي]

السلام عليكم

الكود الاول للخروج مع الحفظ

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close True
End Sub

الكود الثانى للخروج دون حفظ التغغيرات

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close false
End Sub

[euro_999]

تفضل اخي هذا ان شاء الله هو المطلوب

      ActiveWorkbook.Save
   Application.Quit

[aladdin]

السلام عليكم ورحمة الله وبركاته

الأخ الكريم / روميو ... لك كل الشكر وتم الاستفادة من الرابط تماماً .. بارك الله فيك

الأخ الكريم / يورو _ 999 ... خالص شكرى لإهتمامك وفعلا كود فعال .. بارك الله فيك

أستاذى الفاضل / أبو أسامة ... هذا ليس بغريب على أستاذ مثلك .... لقد كنت سبباً فى تعلمى الكثير والكثير .. بارك الله لك فى وقتك وعلمك