Excel de kullanıcı adı gösterme

[sylar4646]

Merhaba üstatlar, exdel de kullanıcı adı göstermek istiyorum.

Şöyle ki :

If ThisWorkbook.ReadOnly = True Then
MsgBox "Dosya şu an salt okunur durumda ve " & [R5] & " üzerinde açıktır.", vbInformation
Else
ActiveSheet.Range("R5").Value = Environ("computername")


Bu kod ile "computername" yada "username" yazarak bilgisayar adını gösterebilirim. Fakat şirkette bilgisayarların adı "admin" "user" gibi tanımlanmış. Bilgisayarların adını değişemiyorum sebebi ile başka bir program da o ş.ekilde kayıt edilmiş. Değişirsem programa giremiyor kimse.


Yani ben R5 hücresinde ya "Bilgisayar tanımı" göstereceğim yada "Excel e tanımladığım kullanıcı adını" göstereceğim. Yardımcı olursanız çok memnun olurum.

 

[u.L.a.s]

Bunun için şöyle bir şey yazabilirsin.

Burada eğer R5 hücresinde User1 yazıyorsa hemen bir yanındaki S5 hücresine de Ali Veli verisi yazdırıyoruz. Bu Ali Veli verisinide MsgBox ta gösteriyoruz. Diğer Userlar için yine bu if döngülerini kurgulayıp yazman gerekecek

If Range("R5").Value = "User1" Then
Range("S5").Value = "Ali Veli"
MsgBox "Dosya şu an salt okunur durumda ve " & [S5] & " üzerinde açıktır.", vbInformation
End If

 

[sylar4646]

Bunun için şöyle bir şey yazabilirsin.

Burada eğer R5 hücresinde User1 yazıyorsa hemen bir yanındaki S5 hücresine de Ali Veli verisi yazdırıyoruz. Bu Ali Veli verisinide MsgBox ta gösteriyoruz. Diğer Userlar için yine bu if döngülerini kurgulayıp yazman gerekecek

If Range("R5").Value = "User1" Then
Range("S5").Value = "Ali Veli"
MsgBox "Dosya şu an salt okunur durumda ve " & [S5] & " üzerinde açıktır.", vbInformation
End If

Hocam benim sorunum dosya içerisine girdiği zaman r5 hücresinde : Kullanıcı adı yazsın. Bilgisayarın değil, excel seçeneklerinden girdiğimiz kullanıcı adı yazsın. msgbox çok önemli değil. Bana bu kod lazım. Bilgisayarın adını yada tam adını değiştiremiyorum. Diğer program a giriş yapılmıyor. Sadecw Bilgisayar tanımını değiştiriyorum, onu da r5 hücresinde gösterebilir miyim onu merak ediyorum.

 

[Korhan Ayhan]

Excel kullanıcı adı için aşağıdaki kod satırını kullanabilirsiniz.

Application.UserName

 

[sylar4646]

Excel kullanıcı adı için aşağıdaki kod satırını kullanabilirsiniz.

Application.UserName

Korhan bey


If ThisWorkbook.ReadOnly = True Then
MsgBox "Dosya şu an salt okunur durumda ve " & [R5] & " üzerinde açıktır.", vbInformation
Else
ActiveSheet.Range("R5").Value = Environ("Application.UserName")

Bu şekilde yaptım olmadı. Yaptığım hata nedir ?

 

[EmrExcel16]

Merhaba Environ("Application.UserName") bu şekilde değilde Application.UserName bu şekilde kullanın

 

[sylar4646]

Ulaş bey, Korhan bey, EmrExcel16 bey çok teşekkür ederim. Elinize sağlık.