• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Giriş yapan kullanıcı

Katılım
22 Ekim 2004
Mesajlar
109
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
 

Ekli dosyalar

Son düzenleme:
Kod:
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
 
Rica ederim.
 
Geri
Üst