• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Toggle Buttonda Sayfa Gizleme-Göstermede Şifre Sorma

Katılım
11 Haziran 2008
Mesajlar
52
Excel Vers. ve Dili
Excel 2003-Türkçe
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
 

Ekli dosyalar

Merhaba,
Kod üzerinde bir kaç değişiklik yaptım. Tanımlamalarda hatalarınız var. Aşağıdaki kodu kullanabilirsiniz.
Kod:
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
 
Teşekkürler Leumruk

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