Bir Sayfa Hariç Tüm Sayfaları Gizleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub BirSayfaHariçTümSayfalarıGizle()
Dim ws As Worksheet
Dim sayfaAdi As String
' Gizlemeyeceğiniz sayfanın adını buraya yazın
sayfaAdi = "AnaSayfa"
' Tüm sayfaları döngüye al
For Each ws In ThisWorkbook.Worksheets
' Eğer sayfa adı, gizlenmeyecek sayfa değilse
If ws.Name <> sayfaAdi Then
ws.Visible = xlSheetVeryHidden ' Sayfayı gizle
Else
ws.Visible = xlSheetVisible ' Sayfayı görünür tut
End If
Next ws
End SubAçıklama
- sayfaAdi: Bu değişkene, gizlemek istemediğiniz sayfanın adını yazın. Örneğin, yukarıdaki örnekte AnaSayfa isimli sayfa gizlenmeyecek.
- ws.Visible = xlSheetVeryHidden: Sayfayı VeryHidden yapar. VeryHidden sayfa, VBA Editor dışında hiçbir yerden görünemez.
- ws.Visible = xlSheetVisible: Sayfayı görünür yapar.
Kullanım
- Excel VBA Editor (Alt + F11) penceresini açın.
- Yeni bir modül ekleyin.
- Yukarıdaki kodu bu modüle yapıştırın.
- BirSayfaHariçTümSayfalarıGizle makrosunu çalıştırın.