كيفية اظهار واخفاء اوراق محددة

[amr atef eid]

تنسيط اوراق عمل محددة بناء على الضغط عمل محددة.xlsx

[lionheart]

Private Sub Worksheet_Activate()
    Dim e, ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> Me.Name Then
            ws.Visible = xlSheetVeryHidden
        End If
    Next ws
    For Each e In Array("1", "2")
        Worksheets(e).Visible = xlSheetVisible
    Next e
End Sub