Msg Box

[ناصرالمصرى]

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

وكل عام وأنتم بخير بمناسبة حلول الشهر الكريم

لدى هذه الأسطر من كود أستخدمه

     Application.ScreenUpdating = True
     MsgBox "تم الإنتهاء من طباعة جميع المستندات هل تريد الخروج من البرنامج مع الحفظ", vbOKOnly, "ok"
     End Sub

سؤالى كيف يمكننى حفظ المصنف والخروج منه عند ظهور الرساله المذكوره أعلاه

بمعنى أريد عند الضغط على زر  OK يتم حفظ المصنف والخروج منه 

ماهى الأسطر الواجب إضافتها لتحقيق ذلك ***** شكرا مقدما لطيب المساعدة وجزاكم الله خيرا

[عبدالله بشير عبدالله]

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

وكل عام وأنتم بخير

 

Application.ScreenUpdating = True
 MsgBox "تم الإنتهاء من طباعة جميع المستندات هل تريد الخروج من البرنامج مع الحفظ", vbOKOnly, "ok"
ActiveWorkbook.Save
     End Sub

[ناصرالمصرى]

وكل عام أنت وجميع الأهل والأحباب فى ليبيا الشقيق بكامل الصحة والسعاده

طيب تم حفظ المصنف وماذا عن الخروج أو بالأحرى غلق الملف بعد الحفظ

وافر تقديرى وجزاكم الله خيرا

[عبدالفتاح في بي اكسيل]

اذاكنت  تريد  الخروج    من  برنامج  الاكسيل  نهائيا

Application.ScreenUpdating = True
 MsgBox "تم الإنتهاء من طباعة جميع المستندات هل تريد الخروج من البرنامج مع الحفظ", vbOKOnly, "ok"
ActiveWorkbook.Save
application.Quit
     End Sub

اما  اذا  اردت  الخروج  من ملف  الاكسيل  بدون  اغلاق تطبيق  اكسيل 

 

Application.ScreenUpdating = True
 MsgBox "تم الإنتهاء من طباعة جميع المستندات هل تريد الخروج من البرنامج مع الحفظ", vbOKOnly, "ok"
ActiveWorkbook.Save
ActiveWorkbook.close
     End Sub

 

[ناصرالمصرى]

جزاكم الله تعالى أحسن الجزاء

تمت الإفاده ....تقبلوا وافر تقديرى وجزاكم الله خيرا