Sayfaları Topluca Gizleme

[ekremmk]

Herkese iyi günler. Çalıştığım excel dosyasında birden fazla gizlemek istediğim sayfa var. Tek tek gizle veya göster tuşlarını kullanmak istemiyorum. Daha önce çalıştığım bir dosyada

Sub model_sifre_sayfa_goster()
ThisWorkbook.Unprotect ""
Excel.Application.ScreenUpdating = False
For i = 1 To ThisWorkbook.Worksheets.Count
If ThisWorkbook.Worksheets(i).Name <> "ANASAYFA" Then
ThisWorkbook.Worksheets(i).Visible = xlSheetVisible
End If
Next
ThisWorkbook.Worksheets("Sayfa 1").Visible = xlSheetVeryHidden
ThisWorkbook.Worksheets("Sayfa 2).Visible = xlSheetVeryHidden
ThisWorkbook.Worksheets("DATA").Visible = xlSheetVeryHidden
Excel.Application.ScreenUpdating = True
ThisWorkbook.Protect ""
End Sub

Bu tarz bir kod kullanmıştım ama şimdiki dosyada kullanmam işe yaramıyor Neyi değiştirmem gerektiğini bulamadım yardımcı olabilir misiniz?

 

[YUSUF44]

Sub model_sifre_sayfa_goster()

ThisWorkbook.Unprotect "" : Dosya korumasını kaldır

Excel.Application.ScreenUpdating = False : Sayfa yenilemeyi iptal et (makro hızlı çalışsın diye yapılır)

For i = 1 To ThisWorkbook.Worksheets.Count : i değişkenine 1'den dosyadaki sayfa sayısına kadar değer ver ve saymaya başla
(makro çalışınca 1'den itibaren tüm sayfaları-n adını- kontrol eder)
If ThisWorkbook.Worksheets(i).Name <> "ANASAYFA" Then : Eğer i değerinin olduğu sayfanın adı ANASAYFA değilse aşağıdaki işlemi yap

ThisWorkbook.Worksheets(i).Visible = xlSheetVisible : O sayfayı görünür yap
End If
Next : Sonraki sayfaya geç

ThisWorkbook.Worksheets("Sayfa 1").Visible = xlSheetVeryHidden : Sayfa 1 sayfasını çok gizli yap

ThisWorkbook.Worksheets("Sayfa 2).Visible = xlSheetVeryHidden : Sayfa 2 sayfasını çok gizli yap

ThisWorkbook.Worksheets("DATA").Visible = xlSheetVeryHidden : DATA sayfasını çok gizli yap

Excel.Application.ScreenUpdating = True : Sayfa yenilemeyi etkinleştir (Bunu yapmazsak sayfadaki değişiklikleri gözlemleyemeyiz)

ThisWorkbook.Protect "" : Dosyayı koru (ama şifre yok, şifre olsun isteseydik tırnak içinde yazılması gerekirdi)

End Sub

 

[Seyit Tiken]

Böyle bir kod işinize yarayabilir.
Bu Çalışma Kitabı kod sayfasına yapıştırınız.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
For h = 2 To Sheets.Count
Sheets(h).Visible = Sheets(h).Visible = 0
Next
End Sub

 

[hakankilic]

Çok teşekkür ederim.