Sayfaları gizlemek

[dedenet]

Excel kitabımda Sayfa 1, Sayfa 2..... şeklinde 20 tane sayfa var.
Sayfa 1 hariç diğer sayfaları gizlemek için nasıl bir kod yazmalıyım

 

[ASLAN7410]

Merhaba.

 

[dedenet]

teşekkür ederim

 

[ASLAN7410]

Geri dönüş yaptığınız için teşekkürler.

 

[Seyit Tiken]

Alternatif : Çift Tıklamayla hem sayfaları gizler hem gösterir

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
For a = 2 To Sheets.Count
Sheets(a).Visible = Sheets(a).Visible = 0
Next
End Sub

 

[dedenet]

Teşekkür ederim Seyit bey