إجمالي مرات مشاهدة الصفحة

الأربعاء، 27 أبريل 2016

إغلاق كل النوافذ المفتوحة في محرر الأكواد Close All Open VBE Windows

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

إليكم كود يقوم بإغلاق كافة النوافذ المفتوحة في محرر الأكواد ما عدا نافذة المشروع ونافذة الخصائص.

قم بإظهار بعض النوافذ من قائمة View لتجربة الكود ، ثم قم بتنفيذ الكود ليتم إغلاق كل النوافذ المفتوحة ما عدا نافذة المشروع Project Window ونافذة الخصائص Properties ، كما يمكن إخفاء النافذتين بالتعديل في الكود.

الكود المستخدم يوضع في موديول وينفذ داخل محرر الأكواد من قائمة Run ثم الأمر Run Sub/Userform أو يمكن وضع مؤشر الماوس داخل الموديول ثم اضغط F5 من لوحة المفاتيح

Sub Close_All_Open_VBE_Windows()
    Dim CodeWindow As Object
    ThisWorkbook.VBProject.VBE.ActiveWindow.Visible = True
    
    For Each CodeWindow In ThisWorkbook.VBProject.VBE.Windows
        If Not CodeWindow.Caption = ThisWorkbook.VBProject.VBE.ActiveWindow.Caption Then
            If Not CodeWindow.Caption = "Project - VBAProject" And Not Mid(CodeWindow.Caption, 1, 10) = "Properties" Then
                CodeWindow.Visible = False
            End If
        End If
    Next CodeWindow

    ThisWorkbook.VBProject.VBE.ActiveWindow.Visible = False
End Sub

إعداد / ياسر خليل أبو البراء

ليست هناك تعليقات:

إرسال تعليق