VBA Tüm Worksheet'lerin Gizliliğini Kaldırmak

221 Okunma VBA

Birden çok gizli "worksheet" e (çalışma dosyasına) sahip bir "Workbook" (çalışma kitabı) ile çalışıyorsanız, Bu sayfaları birer birer göstermek istemeniz biraz zaman alabilir. Aşağıdaki kod ile tüm gizli "worksheet" leri görünür hale getiren bir fonksiyon örneği verilmiştir.. 

Sub Goster()
   Dim ws As Worksheet 
   For Each ws In ActiveWorkbook.Worksheets
   ws.Visible = xlSheetVisible
   Next ws 
End Sub

Yukarıdaki kodda For Each döngüsü ile tüm "Worksheet" ler tek tek taranır ve görünür hale getirilir.

VBA

İlginizi Çekebilir

VBA 1'den 100'e Kadar Çift Sayı Toplam Örneği

VBA Tüm Worksheet'leri Şifrelemek

VBA Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

VBA Bir Dizi Tam Sayının Ortalamasını Bulma

VBA Bir Dizideki Tek Sayıların Adetini Bulma Örneği