Giriş yapan kullanıcı

[inflexible]

Değerli ustalarım , ekte bulunan Exceli açtığımda kişi isimleri geliyor, herkes kendi adıyla şifresiyle giriş yapıyor.
Giriş Yapan kişinin adı b2 hücresinde otomatik gelmesi gerekiyor. Yardım rica ediyorum.

giriş için kullanıcı : k1 şifre 1001

 

[askm]

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If TextBox1.Text = Sheets("isimler").Range("B" & ComboBox1.ListIndex + 1).Text Then
Sheets("sayfa1").Visible = 1
Sheets("sayfa1").Activate
Range("B2").Value = ComboBox1.Text
Unload Me


Else


Label1.Visible = 1
Label2.Visible = 1
Label2 = Label2 + 1
TextBox1.SetFocus
If Label2 = 3 Then Application.DisplayAlerts = 0: ActiveWorkbook.Close
End If
End If
End Sub

 

[inflexible]

Yardımlarınız için çok teşekkür ediyorum.

 

[askm]

Rica ederim.