Ortak kullanımdaki dosyada kullanıcı adına göre işlem yaptırma

[beremir]

Merhabalar,

Bir çok kişi tarafından veri girişi yapılan bir excel dosyasında microsoft kullanıcı adına göre işlem yaptırmak istiyorum. Örneğin pc adı veya microsoft kullanıcı adı "Ahmet" isimli biri exceli açtığında benim makrom çalışsın, "Mehmet" isimli biri exceli açtığında çalışmasın istiyorum. (Yaptırdığım işlem ise Ahmet exceli açtığında gidip diğer exceli de otomatik açması. Bunun için kullandığım kod aşağıdadır. Bunu workbook açıldığında otomatik yaptırdığım için text box ile yaptırmak istemiyorum.) Başına if'li bir yapı ile Ahmet ise çalıştır demek istiyorum tabi başında microsoft kullanıcı adının Ahmet olduğunun tespitini de yaptırmam gerekecektir diye düşünüyorum.



Private Sub Workbook_Open()

Application.Workbooks.Open ("\\.......\ORTAK\Günlük Rapor\TAKİP.xlsx")

End Sub


Şimdiden yardımlarınız için teşekkür ederim.

 

[hamitcan]

Bu şekilde deneyin.

 If Environ("USERNAME") = "Ahmet" Then
    'kodlarınız...
 End If