السلام عليكم ورحمة الله وبركاته
إليكم كود يقوم بإغلاق كافة النوافذ المفتوحة في محرر الأكواد ما عدا نافذة المشروع ونافذة الخصائص.
قم بإظهار بعض النوافذ من قائمة 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
إعداد / ياسر خليل أبو البراء
ليست هناك تعليقات:
إرسال تعليق