طلب كود vba لإغلاق ملفات و الإبقاء على ملف واحد دون رسالة التحذير

[hicham2610]

السلام عليكم

من فضلكم

عندي ملف إسمه A.XLSM  متضمن لأكواد البرمجة ويشتغل على ملفات خارجية مفتوحة

أريد كود vba أضعه في النهاية لغلق الملفات التالية بعد الاشتغال عليها : الملفات المطلوب غلقها

1.XLSX 

2.XLSX

3.XLSX

والإبقاء على ملف  إسمه مفتوحا:

4.XLSX

ويغلق ك كذلك ملف البرمجة:A.XLSM دوت حفظ التغييرات ودون إظهار رسالة التحذير

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

تم تعديل فبراير 18, 2017 بواسطه hicham2610

[hicham2610]

السلام عليكم

حللت المشكلة وأضعها هنا لمن أراد الاستفادة منها:

      Workbooks("1.xlsx").Close savechanges:=False
      Workbooks("2.xlsx").Close savechanges:=False
      Workbooks("3.xlsx").Close savechanges:=False
      ThisWorkbook.Close savechanges:=False