ToggleButton ile sayfa gizleme

[s.savas]

Arkadaşlar iyi akşamlar.
ToggleButton ile istediğim sayfaları gizleyip, gösterirkenden şifre sormasını nasıl sağlarım.
Ekli dosyada a,c,e,f sayfaları gizlensin, açılırkende şifre sorsun.

 

[Erdal]

Merhabalar
Eki inceleyiniz.

 

[Merhum İdris SERDAR]

Arkadaşlar iyi akşamlar.
ToggleButton ile istediğim sayfaları gizleyip, gösterirkenden şifre sormasını nasıl sağlarım.
Ekli dosyada a,c,e,f sayfaları gizlensin, açılırkende şifre sorsun.

.

Kod aşağıdaki şekilde olmalı:

Private Sub ToggleButton1_Click()
     
    If ToggleButton1.Value = True Then
        For s = 2 To Sheets.Count
        Sheets(s).Visible = 2
ToggleButton1.Caption = "GÖSTER"
     
Next

    Else
      For s = 2 To Sheets.Count
      Sheets(s).Visible = 1
ToggleButton1.Caption = "GİZLE"

Next
    End If
  
End Sub

.

 

[s.savas]

.

Kod aşağıdaki şekilde olmalı:

Private Sub ToggleButton1_Click()
     
    If ToggleButton1.Value = True Then
        For s = 2 To Sheets.Count
        Sheets(s).Visible = 2
ToggleButton1.Caption = "GÖSTER"
     
Next

    Else
      For s = 2 To Sheets.Count
      Sheets(s).Visible = 1
ToggleButton1.Caption = "GİZLE"

Next
    End If
  
End Sub

.

Hocam teşekkür ederim.
Yazdığınız kod Sayfa1 dışındaki bütün sayfaları gizliyor ve açıyor.
Sadece bizim istediğimiz sayfaların gizlenmesi ve açılmasını yaptırabilirmiyiz.
İlk mesajdaki örnekte Sayfa1 dışında 6 adet sekme var. Bu sekmelerden sadece a, c ve f sekmelerinin gizlenmesi ve gösterilmesini yapılabilirmi.
Birde sayfalar gösterilirken şifre sormasını sağlayabilirmiyiz.
İyi hafta sonları diliyorum.