Üç Şartlı InputBox

[hakki83]

Merhaba,

Örnek dosyadaki kodlara üç şartlı inputbox eklemesi yapmaya çalıştım fakat tam istediğim gibi olmadı.

- Eğer şifre kutusuna 123 olarak girilirse, şifre doğru mesajı gelecek ve A2 hücresi çalışacak. Cancel'e basılıp çıkılırsa, mesaj gelmeyecek, A2 hücresi çalışmayacak.

--Eğer şifre kutusuna 123 dışında başka sayılar harfler girilirse, sadece şifre yanlış mesajı gelecek. A2 hücresi çalışmayacak. Cancel'e basılıp çıkılırsa, mesaj gelmeyecek, A2 hücresi çalışmayacak.

- Eğer şifre kutusuna hiçbir şey yazılmazsa, ve OK'e basılıp çıkılırsa, şifre girmediniz mesajı gelecek, A2 hücresi çalışmayacak. Cancel'e basılıp çıkılırsa, mesaj gelmeyecek, A2 hücresi çalışmayacak.

 

[DoğanD]

Merhaba,

Aşağıdaki gibi dener misiniz?

Private Sub CommandButton1_Click()
sifre = InputBox("Şifre Giriniz", "Şifre Giriş", " ")
''''''''
If sifre = "" Then Exit Sub
If sifre = " " Then
MsgBox "Şifre GİRMEDİNİZ!.."
Exit Sub
End If

If sifre <> 123 Then
MsgBox "Girilen şifre YANLIŞ!.."
Exit Sub
End If

If sifre = 123 Then
[A2] = "DENEME" 'Buraya kodlar gelecek
'Else
MsgBox "Girilen şifre DOĞRU!.."
Exit Sub
End If
''''''''

''''''''


End Sub

 

[hakki83]

DoğanD hocam bilginize sağlık, çok güzel olmuş. Denemeler yapıyorum.

 

[AdemCan]

Merhaba alternatif.

Private Sub CommandButton1_Click()
sifre = Application.InputBox("Şifre Giriniz", "Şifre Giriş")
If sifre = False Then Exit Sub
    If sifre = 123 Then
        MsgBox "Şifre doğru.", , ""
        [A2] = "Deneme"
    ElseIf sifre = "" Then
        MsgBox "Şifre girmediniz.", , ""
    ElseIf sifre <> 123 Then
        MsgBox "Şifre yanlış.", , ""
    End If
End Sub

 

[hakki83]

Adem Can hocamız mükemmel olmuş. Bilginize sağlık.

 

[hakki83]

Hocalarımızdan hep bilmediğimiz şeyleri öğreniyoruz.