Soru Userformdaki textbox'a bilgisayardaki kullanıcı adını çekmek ve bu kullanıcı adı ile giriş yapmak?

[mars2]

İyi Günler;
Userforma kullanıcı adı ve şifre ile giriş yapmaktayım. Ancak, Kullanıcı adını bilgisayrdaki kullanıcı adından (UserName = Environ$("UserName") çekmesini ve şifre ile giriş yapmak istiyorum. Bu mümkün mü? mümkün olması halinde konu hakkında yardımlarınızı beklemekteyim.
İlginize şimdeden teşekkür ederim.

 

[hamitcan]

TextBox içine Kullanıcı adını yazdırabilirsiniz. Ayrıca şifreyi Excel içinde bir sayfaya yazdırıp form içindeki ile karşılaştırabilirsiniz.

 

[mars2]

Sayın hamitcan;
Userform üzerinde bulunan textboxlara kullanuıcı adı ve şifre excel içindeki sayfadan almakta ve karşılaştırmakta;
Userform açılınca kullanıcı adını, adını makinadan otomotamik çekerek excel sayfasında kayıtlı kullanıcı adı ile karşılaştırarak giriş yapmak istiyorum.

Private Sub UserForm_Initialize()
TextBox1.Value = Environ$("UserName")

End Sub

 

[hamitcan]

Kullanıcı adının A1 hücresinde olduğunu varsayın.

 if Sayfa1.[a1] = Environ$("UserName") then msgbox "Kullanıcı Adı Doğru"