Excel’de Gizli Sayfaları Açma

İş yaşamında, Excel dosyaları üzerinde çalışmalar yaparken, çoğunlukla bir kitapda çok sayıda sayfa bulunabilir. Ve bu sayfalarda çalışırken çoğunlukla ilgilenmediğimiz sayfaları gizleriz. Gizlenen sayfaları da kitapta herhangi bir sayfa üzerine gelip sağ tıklayıp Unhide diyerek açarız. Ancak her seferinde tek bir sayfayı gösterebiliriz. Birden fazla sayfayı açmak istediğimizde (bazen yanlışlıkla da olsa tüm sayfaları gizleyebiliyoruz) çoklu seçim imkanımız maalesef bulunmamaktadır.

Aşağıdaki VBA kodu ile Tüm Gizli Sayfalarınızı tek seferde açın.

Gizli sayfaların olduğu kitapta VBA editörünü Developer(Geliştirici) sekmesinden ya da, ALT+F11 kısa yol tuşu ile açın.

Karşınıza gelen Editörün sol tafarında bulunan VBAProject penceresinden ilgili kitabınızın üzerinde mouse ile sağ tıklayıp Insert->Module diyin. Karşınıza gelen boş sayfaya aşağıdaki kodu kopyalayıp yapıştırın.

Sub GizliSayfalarıAc()

   For Each sh In ThisWorkbook.Worksheets

       If sh.Visible = False Then

       sh.Visible = True

       End If

   Next sh

End Sub

 

Yukarıdaki komutu çalıştırmak için F5 tuşuna basmanız yeterli. Tüm sayfalarınız tekrar görünür hale gelecektir.

İlk yorum yapan olun

Bir yanıt bırakın

E-posta hesabınız yayımlanmayacak.


*