كود إغلاق الإكسل

**Akram Galal** · أغسطس 18, 2012

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

عيد سعيد علي كل أعضاء المنتدي

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

أريد كود يغلق برنامج الإكسل بدون أن تظهر رسالة " هل تريد الحفظ " أو أي رسالة أخرى

ولكم جزيل الشكر.

**خالد الشاعر** · أغسطس 18, 2012

استاذ اكرم

جرب هذا الكود

Sub Close1()

   ActiveWorkbook.Save

   Application.Quit

   ActiveWorkbook.Close SaveChanges:=False

End Sub

أبــو حبيبـــة · أغسطس 18, 2012

السلام عليكم

هل يمكن شرح طريقه استخدام هذا الكود و لكم جزيل الشكر

**Akram Galal** · أغسطس 19, 2012

شكرا جزيلا يا أخي علي هذا الكود الجميل

**خالد الشاعر** · أغسطس 20, 2012

استاذ فاست

هذا الكود لغلاق الاكسل دون طلب رسالة الحفظ

ضع هذا الكود فى صفحة الفجوال الخاصة بالاكسل

ثم ارسم زر و اربط الماكرو بالزر

تم تعديل أغسطس 20, 2012 بواسطه khhanna

adil8888 · أبريل 14, 2018

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

السادة المحترمون

لو كنت فاتح اكثر من برنامج في بيئة اكسل وحبيت اغلق واحد منهم وفق الكود

ActiveWorkbook.Save

Application.Quit

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

مصطفى محمود مصطفى · أبريل 14, 2018

استخدم هذا الكود لاغلاق مصنف واحد فقط

Sub Close7()
ThisWorkbook.Save
ThisWorkbook.Close

End Sub

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