msgbox şifre koymak

[erd5334]

Arkadaşlar benim vba kodum var aşağıda görülen. bu kod sayesinde butona tıklayıp yes dediğimde excel açılıyor ve ben düzenleme ekranına girebiliyorum. ama benim istediğim yes dediğimde bana bir şifre sorması ve beni o şifreyi doğru yazarsam içeri sokması.

yardımlarınız için teşekkür ederim.

Private Sub btn_kod_duzenle_Click()
MsgBox "Düzenleme yapmak istediğinize emin misiniz?", vbYesNo
If vbNo Then
Application.Visible = False
End If
If vbYes Then
Application.Visible = True
End If

End Sub

 

[askm]

Private Sub btn_kod_duzenle_Click()
MsgBox "Düzenleme yapmak istediğinize emin misiniz?", vbYesNo
If vbNo Then
Application.Visible = False
End If
If vbYes Then
Sifre = InputBox("Şifre giriniz...", "Şifre")
If Sifre = "123" Then
    Application.Visible = True
Else
    Application.Visible = False
End If
End If
End Sub

 

[erd5334]

Private Sub btn_kod_duzenle_Click()
MsgBox "Düzenleme yapmak istediğinize emin misiniz?", vbYesNo
If vbNo Then
Application.Visible = False
End If
If vbYes Then
Sifre = InputBox("Şifre giriniz...", "Şifre")
If Sifre = "123" Then
    Application.Visible = True
Else
    Application.Visible = False
End If
End If
End Sub

Emeğin için sağolasın kardeşim yalnız şöyle bir sorun var. evet de desem hayır da desem şifre giriniz ekranını getiriyor. normalde hayır dediğimizde imputbox gelmemesi gerek ama geliyor

 

[askm]

Sizin vbyesNo üzerine yazmıştım.
Aşağıdaki şekilde deneyin.

Private Sub btn_kod_duzenle_Click()
Soru = MsgBox("Düzenleme yapmak istediğinize emin misiniz?", vbYesNo)
If Soru = vbNo Then
    Application.Visible = False
Else
    Sifre = InputBox("Şifre giriniz...", "Şifre")
    If Sifre = "123" Then
        Application.Visible = True
    Else
        Application.Visible = False
    End If
End If

End Sub

 

[erd5334]

Sizin vbyesNo üzerine yazmıştım.
Aşağıdaki şekilde deneyin.

Private Sub btn_kod_duzenle_Click()
Soru = MsgBox("Düzenleme yapmak istediğinize emin misiniz?", vbYesNo)
If Soru = vbNo Then
    Application.Visible = False
Else
    Sifre = InputBox("Şifre giriniz...", "Şifre")
    If Sifre = "123" Then
        Application.Visible = True
    Else
        Application.Visible = False
    End If
End If

End Sub

kodu aynen yapıştırdım şifre de 123 ancak açmıyor buyurun sizde deneyin.

 

[askm]

Açıyor şu anda.

 

[erd5334]

Açıyor şu anda.

çalışma kitabının boyutunu küçültmüşüm. userform arkasında kalmış bende gelmiyor diyorum. kusura bakma emeğine sağlık kardeşim

 

[askm]

Rica ederim. Kolay gelsin.