Toggle Buttonda Sayfa Gizleme-Göstermede Şifre Sorma

[excelturk]

Değerli Arkadaşlar

Ekli dosyadaki Toggle Button ilk tıklayışta Giriş Sayfası hariç tüm sayfaları gizliyoruz ama sayfa sayfaları göster şeklinde iken tıkladığımda

Sorun 1- Şifre yi yazdığımda şifre doğru olmasına rağmen şifre hatalı mesajını getiriyor.

Sorun 2- Ayrıca Şifre hatalı veya boş bırakılırsa sayfaları göstermesin istiyorum ama bu durumu sağlayacak kodu bir türlü bulamadım.

Bana bu konuda yardımcı olurmusunuz


İiginize şimdiden teşekkürler

 

[leumruk]

Merhaba,
Kod üzerinde bir kaç değişiklik yaptım. Tanımlamalarda hatalarınız var. Aşağıdaki kodu kullanabilirsiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "SAYFALARI GÖSTER" Then
sifre = InputBox("Lütfen Şifre Girin", "Şifre Girişi")
If sifre <> "denizli" Or sifre = "" Then
MsgBox "ŞİFRE YANLIŞ veya BOŞ BIRAKTINIZ"
Exit Sub
End If
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Visible = True
Next
ToggleButton1.Caption = "SAYFALARI GİZLE"
Exit Sub
End If

If ToggleButton1.Caption = "SAYFALARI GİZLE" Then
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name <> "Bilgi Girişi" Then
Worksheet.Visible = False
End If
Next
ToggleButton1.Caption = "SAYFALARI GÖSTER"
End If
End Sub

 

[excelturk]

Teşekkürler Leumruk

Hatalarımı görmemi sağladığınız için