-->

اكسيل | اغلاق ملف العمل النشط فقط اذا كانت ملفات كثيرة مفتوحة excel vba

 بسم الله الرحمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس

درس جديد وكود جديد مميز من مكتبة اكواد اكسيل vba 

كيفية اغلاق ملف العمل النشط فقط اذا كانت هناك ملفات عمل كثير مفتوح



ما معنى هذا الكلام 

احيانا اثناء عملنا على تطبيق الاكسيل ويكون عندنا ملفات عمل كثيرة نعمل عليها ولكن عندما نستخدم الكود 

Applictaion.quite

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

  كيف نتغلب على هذاة المشكلة 

سيتم التغلب على هذة المشكلة من خلال كود سهل جدا من اكود اكسيل  

Sub close active workbook()

If Workbooks.Count > 1 Then

  ThisWorkbook.Close

Else

  ThisWorkbook.Saved = True

  Application.Quit

End If

End Sub


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

اذا استفدت من الكود لاتبخل بترك تعليق لنا ومشاركة المقال على وسائل التواصل الاجتماعى حتى يعم العلم للجميع
Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق