اخفاء الشيتات و ترك الشيت الرئيسي هو الظاهر

[ahmedhossin]

السلام عليكم و رحمة الله و بركاته  اريد اخفاء الشيات و ترك الشيت الرئيسي هو الظاهر 

الصورة مرفقة 

[lionheart]

Sub Test()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Visible = ws.Name = "Maine"
    Next ws
End Sub