Userformdan hücreye kullanıcı adını yazdırma

[imdatsaral]

Selam Arkadaşlar,
Dosyama erişim kullanıcı adı ve şifereyi girerek oluyor beneim yapmak istediğim kullanıcı giriş yaptığında kullanıcı adını d1 hücresine yazsın. örnek dosyayı gönderiyorum

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub ComboBox1_Change()
    [D1] = Application.UserName
End Sub

Yanlış anlamışta olabilirim.

Private Sub ComboBox1_Change()
    [D1] = ComboBox1 = Value
End Sub

.

 

[imdatsaral]

Sayın Ömer teşekkür ederim istediğim gibi oldu ikinci bir isteğim olacak
makro oluşturmak istiyorum
eğer d1 hücresinin değeri "xxxx" ise UserForm1 açılsın
eğer d1 hücresinin değeri "xxxx" değil ise UserForm1'i kapat

 

[Ömer]

Bu istediğinizi şifre açılışındamı kullanacaksınız yoksa D1 hücresine manuel giriş yapıp form aç form kapa gibi işlem mi yapacaksınız. Sorunuzla ilgili detaylı bilgi verirseniz daha net cevaplar alabilirsiniz.

.

 

[imdatsaral]

D1 hücresi yazan kullanıcı adına göre UserForm1 görünsün veya görülmesin
Örneğin benim kullanıcı adımı D1 hücresine " XXXX "olarak yazdı makro " XXXX " gördüğünde UserForm1 Açılsın Diğer Kullanıcılarda görünmesin istiyorum

 

[Ömer]

Bana pek mantıklı gelmedi. Souyu yanlış anlamışta olabilir tabi.

ThisWorkbook daki kodu aşağıdaki gibi değiştirin.

Private Sub Workbook_Open()
If Sayfa1.[D1] = "Deneme" Then
    Application.Visible = False
    UserForm1.Show
End If
End Sub

.

 

[Kardeşpayı]

merhabalar ,

acaba bu kodu mesela d10 hücresine giriş için kullanılan, kullanıcı adını yazdırmamız mümkün müdür?