Excelde combobox ile Şifre girme örneği

[Sa.NaL]

Selamlar,

Ekte örnekte isimler var isimlerin teyit edilmesi için şifreli uygulama yapmak istiyorum. Yardımcı olursanız sevinirim. İyi çalışmalar.

 

[Sa.NaL]

arkadaşlar elinizde şifre girmemi sağlayacak inputbox örneği yokmu az vaktinizi ayırıp eke bakarsanız sevinirim benim için önemli çok dua ederim.

 

[Sa.NaL]

Arkadaşlar burada nerede hata yapıyorum yardımcı olurmusunuz?

Sub Açılan1_Değiştir()
Static sayac As Integer

Do



If sayac = 3 Then
ThisWorkbook.Close False
Else



If Sheets("Sayfa1").Range("d5").Value = 1 And InputBox("Şifreyi girin") = "5454" Then
GoTo devam
Sheets("Sayfa1").Range("a10").Value = "ali"
Else
MsgBox "hatalı şifre"

sayac = sayac + 1
End If
If Sheets("Sayfa1").Range("d5").Value = 2 And InputBox("Şifreyi girin") = "2525" Then
GoTo devam
Sheets("Sayfa1").Range("a11").Value = "veli"
Else
MsgBox "hatalı şifre"

sayac = sayac + 1
End If
End If
Loop
devam:

End Sub

 

[Korhan Ayhan]

Selamlar,

sayac değişkeniniz hiçbir zaman 3 değerine ulaşmıyor. Bu sebeple kısır döngüye giriyor. Aşağıdaki şekilde denermisiniz.

If sayac >= 3 Then

 

[Sa.NaL]

Koorhan Bey yardımınız için teşekkürler ama benim yapmak istediğimi az çok anlamışsınızdır, dediğiniz gibi de yaptım ama istediğime ulaşamıyorum döngü bozuk bence bir el atarsanız sevinirim.teşkkürler

 

[Sa.NaL]

arkadaşlar bana yardımcı olacak yokmu ya çok önemli bu örnek benim için dijital imzalarda kullanacağım comboboxdan 1 seçili ise şifre 5454 olacak örneğin şifre 3 kez yanlışsa excelden atacak beni aynı şekil 2 ise şifre 2525 aynı şekil 3 ve 4 için böyle bir döngü kurmamda yardımcı olursanız çok sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Açılan1_Değiştir()
    Static SAY As Byte, ŞİFRE As Variant
    
Başla:
    
    If SAY = 3 Then
        ThisWorkbook.Close False
    Else
    
    ŞİFRE = InputBox("Şifrenizi giriniz !")
    
    If ŞİFRE = False Or ŞİFRE = "" Then
        MsgBox "İşleminiz iptal edilmiştir.", vbInformation
        Exit Sub
    End If
    
    If Sheets("Sayfa1").Range("D5").Value = 1 And ŞİFRE = "5454" Then
        Sheets("Sayfa1").Range("A10").Value = "Ali"
        GoTo Devam
    
    ElseIf Sheets("Sayfa1").Range("D5").Value = 2 And ŞİFRE = "2525" Then
        Sheets("Sayfa1").Range("A11").Value = "Veli"
        GoTo Devam
    
    ElseIf Sheets("Sayfa1").Range("D5").Value = 3 And ŞİFRE = "3636" Then
        Sheets("Sayfa1").Range("A12").Value = "Ahmet"
        GoTo Devam
    
    ElseIf Sheets("Sayfa1").Range("D5").Value = 4 And ŞİFRE = "4141" Then
        Sheets("Sayfa1").Range("A13").Value = "Serdar"
        GoTo Devam
    
    Else
        MsgBox "Hatalı şifre girdiniz !", vbCritical
        SAY = SAY + 1
        GoTo Başla
    End If
    End If
Devam:
End Sub

 

[Sa.NaL]

Çok teşekkür ederim tam istediğim gibi elleriniz dert görmesin.iyi çalışmalar.