Sn; mumya66;

Kullanıcı seviyesini hatalı yazmısınız vb kod paneline kodları yazarken Seviye0 yazarken "S" buyuk harf Excel tabloda yazarken ise seviyesinin "s" harfini küçük yazmışsınız düzelttiğinizde sorun çözülmüş olacaktır.

Alıntı:admin 111111 Seviye0
kullanıcı1 222222 seviye1
kullanıcı2 333333 seviye2
kullanıcı3 444444 seviye3

Alıntı:admin 111111 Seviye0
kullanıcı1 222222 Seviye1
kullanıcı2 333333 Seviye2
kullanıcı3 444444 Seviye3

If ComboBox1 = Empty Then MsgBox "Kullanıcı seçilmedi!", vbCritical, "Hata!": Exit Sub

If TextBox1 = Empty Then MsgBox "Şifre girilmedi!", vbCritical, "Hata!": Exit Sub

If TextBox1.Text <> ListBox1.List(ComboBox1.ListIndex, 0) Then

    MsgBox "Hatalı şifre!", vbCritical, "Hata!": Exit Sub

        Else

    MsgBox "Seviyeniz: " & ListBox1.List(ComboBox1.ListIndex, 1)

    seviye = ListBox1.List(ComboBox1.ListIndex, 1)

    Call seviyeler

End If

Select Case seviye

Case "Seviye0"

    MsgBox "Kısıtlama yok!", vbInformation

Case "Seviye1"

    MsgBox "Kısıtlama var!", vbInformation, "Seviye 1"

Case "Seviye2"

    MsgBox "Kısıtlama var!", vbInformation, "Seviye 2"

Case "Seviye3"

    MsgBox "Kısıtlama var!", vbInformation, "Seviye 3"

Case ""

    MsgBox "Tanımsız yetkilendirme!", vbCritical, "Program kapatılacak!"

    ThisWorkbook.Close False

End Select

Kolay gelsin.