Kullanıcı adı ve parola sorgulama

[Korhan Ayhan]

Selam arkadaşlar,

"KULLANICILAR" isimli sayfamda "C2" den başlayan kullanıcı isimleri var. Aynı sayfada "D2" den başlayan parolalar var.

Kullanıcı adını ve şifresini girdiğinde bunun sayfada kayıtlı olan isim ve parola ile aynı olup olmadığını sorgulamak istiyorum. (Büyük-küçük harf duyarlı olarak)

Ã?rnek olarak;

Textbox1 = Admin
Textbox2 = 12345 girip giriş butonuna tıkladığımda ilk olarak "Admin" isimli kullanıcı varmı bunu kontrol edecek varsa girilen şifrenin bu kullanıcıya ait olup olmadığını kontrol edecek doğruysa programa girilebilecek. Değilse programa girilemeyecek.

İyi çalışmalar dilerim. :hey:

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3174&highlight=%FEifre

 

[Korhan Ayhan]

Sn. leventm,

Vermiş olduğunuz linki inceledim ve aşağıdaki şekilde kendime uyarladım. Fakat benim kullanıcılar "C" sütununda parolalarda "D" sütununda aşağıdaki kodda nereleri değiştirmem gerekiyor.

Option Explicit
Private Sub CommandButton1_Click()
Dim KULLANICI As Integer
On Error Resume Next
If TextBox1 = "" And TextBox2 = "" Then
MsgBox ("Programa kullanabilmek için kullanıcı adı ve parolanızı girmeniz gerekmektedir." _
& Chr(10) & "Lütfen kullanıcı adı ve parolanızı giriniz."), vbCritical, "DİKKAT !"
TextBox1.SetFocus
Exit Sub
End If
With Sheets("KULLANICILAR").Range("C1:C65536")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 1), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Row
End With
On Error GoTo 0
If KULLANICI = 0 Then
MsgBox ("Girdiğiniz kullanıcı adı hatalıdır." _
& Chr(10) & "Lütfen girdiğiniz kullanıcı adını kontrol ediniz."), vbCritical, "DİKKAT !"
TextBox1 = ""
TextBox1.SetFocus
Exit Sub
End If
If Sheets("KULLANICILAR").Cells(KULLANICI, 2) <> TextBox2.Value Then
MsgBox ("Girdiğiniz kullanıcı parolası hatalıdır." _
& Chr(10) & "Lütfen girdiğiniz kullanıcı parolasını kontrol ediniz."), vbCritical, "DİKKAT !"
TextBox2 = ""
TextBox2.SetFocus
Exit Sub
End If
Sheets("KULLANICILAR").Range("F1") = TextBox1.Value
KULLANICI_GİRİÞİ.Hide
ANA_MENÜ.Show
End Sub

İyi çalışmalar dilerim. :hey:

 

[Korhan Ayhan]

Selam arkadaşlar,

Aşağıdaki kodu çalıştırdığımda istediğim gibi çalışmıyor. Bazen denetleme yapıyor bazen yapmıyor. Yapmak istediğim textboxlara girilen değerlerle sayfadaki değerleri birebir karşılaştırması eğer uymuyorsa 3 denemeden sonra kitabı kapatması. Tüm uğraşmalarıma rağmen sorunu çözemedim. Eğer farklı bir yol daha uygunsa örnekle yardımcı olursanız çok sevinirim.

Option Explicit
Private Sub CommandButton1_Click()
Static HATA As Integer
Dim i As Integer, KULLANICI As Integer, PAROLA As Integer
On Error Resume Next

If TextBox1 = "" And TextBox2 = "" Then GoTo 10

For i = 1 To [A65536].End(xlUp).Row
KULLANICI = StrComp(Cells(i, 1).Value, TextBox1.Value, 0)
If KULLANICI = 0 Then
PAROLA = StrComp(Cells(i, 2).Value, TextBox2.Value, 0)
If PAROLA = 1 Then GoTo 10

TextBox1 = ""
TextBox2 = ""
LOGİN.Hide
Application.Visible = True
MENÜ.Show
Exit Sub
End If
Next

10
HATA = HATA + 1
If HATA = 3 Then Application.Quit

MsgBox "Girdiğiniz kullanıcı adı veya parolası hatalıdır." _
& Chr(10) & "Lütfen girdiğiniz kullanıcı adını ve parolasını kontrol ediniz.", vbCritical, "DİKKAT !"
TextBox1 = ""
TextBox2 = ""
TextBox1.SetFocus
End Sub