bir dosya içindeki sheetlerin hepsini hide etmek

[OZCANLOK]

Arkadaşlar formda aradım fakat bulamadın benim sorum basit ama çözüm bulamadım

bir dosya içinde değişik isimde 15 sheet var bunların içinde bulunduğum sheet
hariç diğer sheet leri hepsi veryhidden edilebilrmi bunu için nasıl bir makro yazabiliriz.

 

[veyselemre]

Sub SheetGizle()
    For x = 1 To Sheets.Count
        If Sheets(x).Name <> ActiveSheet.Name Then Sheets(x).Visible = xlSheetVeryHidden
     Next x
End Sub

 

[xxcell]

aşağıdaki kod aktif sayfa hariç tüm sayfaları gizler

Sub x()
  For n = 1 To Sheets.Count
  If Not Sheets(n).Index = ActiveSheet.Index Then Sheets(n).Visible = False
  Next
End Sub

aşağıdaki kod adı sayfa1 olan sayfa hariç tüm sayfaları gizler

Sub x()
  For n = 1 To Sheets.Count
  If Not Sheets(n).name ="Sayfa1" Then Sheets(n).Visible = False
  Next
End Sub