إخفاء وإظهار النطاقات المعرفة Hide Show Defined Ranges

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

أقدم لكم كودين أحدهما يقوم بإخفاء النطاقات المعرفة (أو النطاقات المسماة) Defined Ranges ، والآخر يقوم بإظهارها.

بفرض أن لديك بعض النطاقات المسماة في المصنف ، على سبيل المثال النطاق A1:C10 تم تسمية النطاق باسم MyData (وتتم التسمية بتحديد النطاق ثم وضع مؤشر الماوس في صندوق الاسم على يسار شريط المعادلات ثم كتابة اسم للنطاق ثم الضغط على مفتاح الإدخال إنتر)

ولديك أيضاً النطاق D11:G14 باسم MyRange 

 يمكن الإطلاع على النطاقات المسماة من خلال التبويب Formulas ثم Name Manager لتظهر لك نافذة تحتوي على تفاصيل النطاقات المسماة بهذا الشكل

المطلوب إخفاء تلك النطاقات وإظهارها ، وهذا ما أقدمه لكم من خلال هذين الكودين

Sub HideAllNames()
    Dim objName As Excel.Name
    If Not Application.ActiveWorkbook Is Nothing Then
        For Each objName In Application.ActiveWorkbook.Names
            objName.Visible = False
        Next objName
    End If
End Sub

Sub UnhideAllNames()
    Dim objName As Excel.Name
    If Not Application.ActiveWorkbook Is Nothing Then
        For Each objName In Application.ActiveWorkbook.Names
            objName.Visible = True
        Next objName
    End If
End Sub

تحميل الملف من هنا

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