inputbox şifre

[quesh]

Merhaba Arkadaşlar. Aşağıdaki kodda şifre doğru girildiğinde Userform1 'in açılmasını; eğer şifre yanlış girilmiş ise

 MsgBox "Şifreyi Tekrar Girin", vbcritical, "M U R A T   H."

uyarısı verip Inputbox'ın tekrar görüntülenmesini için yardımlarınızı bekliyorum.
Teşekkürler

Private Sub CommandButton2_Click()
Unload Me
sifre = InputBox("Lütfen Şifreyi girin", "M U R A T  H.")
    If sifre <> "mh" Then Exit Sub
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Private Sub CommandButton2_Click()
sifre = InputBox("Lütfen Şifreyi girin", "M U R A T  H.")
    If sifre <> "mh" Then
         MsgBox "Şifreyi Tekrar Girin", vbCritical, "M U R A T   H."
         CommandButton2_Click
    Else
        UserForm1.Show
    End If
End Sub

.

 

[quesh]

Sanırım anlatamadım Ömer Bey,
Özet olarak anlatayım;
Private Sub CommandButton2_Click() tıklandığında inputbox un ekrana gelmesini ve şifre sormasını istiyorum, eğer şifre "mh" olarak yani doğru girilmişse Userform1 açılsın, eğer yanlış şifre girilmişse "şifre yanlış" uyarısı verilsin ve inputbox tekrar ekrana gelip şifre sorsun. bu böyle devam etsin.

teşekkürler

 

[Ömer]

Kodu denediniz mi?

.

 

[quesh]

Ömer Bey Teşekkür ederim, kodu yanlış yere yapıştırmışım utandım şimdi...
çokkkkkkk teşekkür ederim, ben de yapamayınca 3 kez girme hakkı verip ardından dosyayı kapatan kodu yazmıştım.
bu kodu da ekleyeyim ihtiyacı olanlar faydalansınlar.

 

[quesh]

3 kez şifre giriş hakkı veren 3 yanlış girişte dosyayı kapatan kod. Ustalarım eminim daha kısa ve verimli bir yolunu biliyorlardır. ancak ben bildiğim kadarıyla bunu yapabildim. faydalanmak isteyenler için. saygılar

Private Sub CommandButton2_Click()
Unload Me 'Açık olan nesneyi kapatmak için.
sifre = InputBox("Lütfen Şifreyi girin. Kalan Deneme:3", "M U R A T  H.") 'şifre girme kutucuğu için
    If sifre = "123" Then 'şifreyi 123 olarak belirledik ve şifrenin 123 olarak girilmesi koşulu sonucu
    MsgBox "Şifre Kabul Edildi.", vbInformation, "M U R A T   H."  'uyarı mesajı verildi ve
    UserForm1.Show 'userform1 açıldı
    Else 'diğer surette (şifre 123 'ten farklı girilmişse)
    MsgBox "Şifre Yanlış, Lütfen Şifreyi Tekrar Girin. Kalan Deneme:2", vbCritical, "M U R A T   H." 'ekrana gelecek uyarı mesajı bu şekilde olacak ve
    sifre = InputBox("Lütfen Şifreyi girin. Kalan Deneme:2", "M U R A T  H.") 'şifre girme kutucuğu tekrar açılacak ve bu döngü 3 kere devam edecek.
    If sifre = "123" Then
    MsgBox "Şifre Kabul Edildi.", vbInformation, "M U R A T   H."
    UserForm1.Show
    Else
    MsgBox "Şifre Yanlış, Lütfen Şifreyi Tekrar Girin. Kalan Deneme:1", vbCritical, "M U R A T   H."
    sifre = InputBox("Lütfen Şifreyi girin. Kalan Deneme:1", "M U R A T  H.")
    If sifre = "123" Then
    MsgBox "Şifre Kabul Edildi.", vbInformation, "M U R A T   H."
    UserForm1.Show
    Else
    MsgBox "Şifreyi Ardarda 3 Kez Hatalı Girdiniz. Dosya Kapatılacaktır.", vbCritical, "M U R A T   H."
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    End If
    End If
    End If
    Exit Sub
End Sub