بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد مميز من مكتبة اكواد اكسيل vba
كيفية اغلاق ملف العمل النشط فقط اذا كانت هناك ملفات عمل كثير مفتوح
ما معنى هذا الكلام
احيانا اثناء عملنا على تطبيق الاكسيل ويكون عندنا ملفات عمل كثيرة نعمل عليها ولكن عندما نستخدم الكود
Applictaion.quite
كيف نتغلب على هذاة المشكلة
Sub close active workbook()
If Workbooks.Count > 1 Then
ThisWorkbook.Close
Else
ThisWorkbook.Saved =
True
Application.Quit
End If
End Sub
فى هذا الكود سيتم اختبار اذا كانت هناك اكثر من ملف عمل مفتوح فى هذة الحالة سيغلق ملف العمل النشط فقط
ولو مكانش هناك ملفات عديدة مفتوحة سيتم اغلاق تطبيق الاكسيل بالكامل
وهذا شرح بسيط للكود
اذا استفدت من الكود لاتبخل بترك تعليق لنا ومشاركة المقال على وسائل التواصل الاجتماعى حتى يعم العلم للجميع