CommandButton şifre koymak.

[serif_007]

Arkadaşlar merhaba.

Bir tane commandbutton olacak ve bu commandbutton userform3'ü çağıracak. Fakat Commandbutton'a basıldığında şifre isteyecek ve şifre doğru ise userform3'ü çağıracak. Forumdaki örneklerle denedim fakat yapamadım. Yardımlarınızı bekliyorum. İyi günler

 

[mesuttasar]

Command Button'a çift tıklayıp aşağıdaki kodu ekleyin.

    Dim sifre As String
    sifre= InputBox("Lütfen şifreyi girin:", "Şifre Girişi")

    If sifre = "gizlişifre" Then 'gizlişifre yerine istediğiniz şifreyi yazın
        UserForm3.Show
    Else
        MsgBox "Yanlış şifre! İşlem iptal edildi.", vbExclamation, "Hatalı Şifre"
    End If

 

[serif_007]

Command Button'a çift tıklayıp aşağıdaki kodu ekleyin.

    Dim sifre As String
    sifre= InputBox("Lütfen şifreyi girin:", "Şifre Girişi")

    If sifre = "gizlişifre" Then 'gizlişifre yerine istediğiniz şifreyi yazın
        UserForm3.Show
    Else
        MsgBox "Yanlış şifre! İşlem iptal edildi.", vbExclamation, "Hatalı Şifre"
    End If

Mesut bey çok teşekkür ederim. Fakat şöyle bir durum oluyor benimle mi alakalı bilmiyorum ama İnputbox'da şifreyi girmeden Cancel tıkladığım zaman şifreyi girmememe rağmen userform3 açılıyor

 

[Greenblacksea53]

Private Sub CommandButton1_Click()
    Dim SifrenizGirin As String
    Dim SifreData As String

    SifreData = "123" ' Doğru şifreyi burada tanımlayın

    SifrenizGirin = InputBox("Lütfen şifreyi girin:", "Şifre Girişi")

    If SifrenizGirin= SifreData Then
        UserForm3.Show
    Else
        MsgBox "Yanlış şifre girdiniz.", vbExclamation
    End If
End Sub

 

[serif_007]

@mesuttasar ve @Greenblacksea53 ikinize de teşekkür ederim yine kendi hatam hata kendimden kaynaklıymış