VBA Tüm Worksheet'lerin Gizliliğini Kaldırmak
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.