مطلوب كود يقوم باغلاق جميع الملفات المفتوحه ما عدا الملف النشط

[حسام مصطفي]

السلام عليكم

اقوم في كثير من الاحيان أثناء عملي بفتح العديد من الملفات بعدد كبير 10 او 20 او 25 او ...

ولكن في النهاية اقوم بفتح ملف معين

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

في الانتظار لروائعكم كالعادة

جزاكم الله خيرا

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

السلام عليكم 
اول مشاركه منذ زمن بعييد 
الكود منقول للامانه 
يقوم بحفظ كافة الملفات المفتوحه و اغلاقها باستثناء النشط 
Sub CloseAllًWbsExActive()
Dim WBs As Workbook
For Each WBs In Application.Workbooks
If Not WBs.Name = ThisWorkbook.Name Then WBs.Close (true)
Next WBs
End Sub

[حمادة عمر]

السلام عليكم

اجمل ما في الموضوع بعد اذن اخي الحبيب /  حسام مصطفي

واجمل من الكود ..

هو ظهور ومشاركة القدير الكبير /  ابو اسامة العينبوسي ... جزاه الله خيرا

طالت عنا غيبتك استاذنا القدير الحبيب

لعله خيرا باذن الله

ونتنمي من القلب ان تبقي معنا دائما ولو بطله واحدة يوميا ... من اجل تلاميذك واحبائك واصدقائك

تقبل خالص تحياتي

[حسام مصطفي]

جزاك الله خيرا

هذا هو المطلوب بالضبط

شكرا استاذي