Soru Sekme Gizleme/Açma (Tek buton)

[leonadies]

Merhaba Arkadaşlar;

Tek buton kullanarak;
Sayfa1,Sayfa2,Sayfa3,Sayfa4,Sayfa5

gizleme/gösterme yapmak istiyorum.

Ancak belirttiğim gibi tek butonla yapmak istiyorum ve biliyorum her daim bir sekme açık kalması gerekiyor. Sayfa10 her daim açık kalıyor sorun yok.

Nasıl Yapabilirim?

 

[okan32]

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

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

Next
    End If

End Sub

Böyle bir kod olabilir deneyiniz...

 

[leonadies]

Teşekkürler Üstadım. Sanırım Kendimce de çözdüm Lazım olan kullanabilir.

Sub gizle()

For i = 1 To 9
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Else
Sheets(i).Visible = False
End If
Next i

End Sub