MsgBox şifreli giriş

[zeugma35]

aşağıdaki kod ile forma MsgBox ile şifreli giriş yapıyorum MsgBox'ta sağ üste x bastığımda hata ekranı alıyorum neden olabilir yardımcı olabilirmisiniz

Private Sub CommandButton91_Click()
Dim deg As String
deg = InputBox("Lütfen Sifrenizi giriniz.")
If deg = 123456 Then
Unload UserForm1
UserForm2.Show
Else
MsgBox "Sifreyi yanlis girdiniz.", vbInformation
End If
End Sub

 

[halit3]

Böyle denermisiniz.

Private Sub CommandButton91_Click()

Dim deg As String
deg = InputBox("Lütfen Sifrenizi giriniz.")
If deg = "" Then
MsgBox "işlemi iptal ettiniz", vbInformation
Exit Sub
End If


If deg = 123456 Then
Unload UserForm1
UserForm2.Show
Else
MsgBox "Sifreyi yanlis girdiniz.", vbInformation
End If

End Sub

 

[zeugma35]

x tıkladığımdada UserForm2 ' ye geçti şifreyi yanlış girsemde geçti üstadım

 

[halit3]

x tıkladığımdada UserForm2 ' ye geçti şifreyi yanlış girsemde geçti üstadım

kod da eksiklik olmuş 2 nolu mesajdaki kodu güncelledim.

 

[zeugma35]

Şimdi güzel oldu teşekkürler