اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية How to Show And unhide Sheets based on cell values

اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية

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

درس جديد من دروس اكسل  VBA وهو عن كيفية اظهار او اخفاء اورق عمل محددة بناء على محتوى الخلية وبالتحديد الخلية A1 او اى خلية فى العمود الاول (A)

يتم كل ذلك من خلال ماكرو سهل جدا وكود من اكواد  مكتبة اكسل  VBA

Option Explicit

Sub hide_show_sheets()

    Dim ws As Worksheet, c As Range

    For Each ws In ThisWorkbook.Worksheets

        If ws.Name <> ThisWorkbook.ActiveSheet.Name Then

            ws.Visible = xlSheetHidden

        End If

    Next ws

    On Error Resume Next

    For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))

        Worksheets(c.Value).Visible = xlSheetVisible

    Next c

End Sub

لتحميل ملف العمل