Sayfa göster komutu

[Mahmut Bayram]

Arkadaşlar
Sub Hide_WS2()
Worksheets(2).Visible = xlVeryHidden
End Sub

bu komut sayfa2'yi gizliyor. Biçim-->Sayfa-->Göster etkin değil
fakat bunun tekrar gözükmesini istiyorum yardımcı olur musunuz?

 

[Haluk]

worksheets(2).visible=true

 

[Mahmut Bayram]

Teşekkür Ederim.

 

[baydeniro]

Merhaba. Aşağıdak kod gizlenmiş Sheet2 yi açıyor. Peki tüm gizli sayfaları tek makro ile görünür hale getirmek mümkün mü ?

Sub Unhide_WS2()
Worksheets(2).Visible = True
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. serdarokan,

Sayfaları basit bir döngüye alarak bu işlemi rahatlıkla yapabilirsiniz.

Option Explicit
 
Sub GİZLİ_SAYFALARI_GÖSTER()
    Dim SAYFA As Worksheet
    
    For Each SAYFA In ThisWorkbook.Worksheets
        If SAYFA.Visible = xlSheetHidden Or SAYFA.Visible = xlSheetVeryHidden Then
            SAYFA.Visible = True
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[baydeniro]

Çok teşekkürler Sayın Korhan Ayhan

 

[baydeniro]

Çok teşekkürler, çok yararlı bir kod.