Sayfaya en son erişen kişi?

[huso11]

Arkadaşlar merhaba,
Server altındaki bir excel sayfasında o sayfaya en son erişen kişi veya en son save eden kişiyinin kullanıcı adını gösteren bir şey olabilir mi ?
Şimdiden teşekkür ederim.

 

[Kemal Demir]

Benzer bir örnek verilmişti diye hatırlıyorum ama yınede yazmak istedim.

Umarım İşinizi Görür.


Sub auto_open()
On Error Resume Next
Range("aa1").Value = "Sisteme En Son Giren Kişi" & " " & Date & " " & "Tarihinde" & " " & Application.UserName
End Sub


aşagıdaki Kodu Thisworkbook kısmına yazınız.
Bu kodda Çıkıs Durumunuzu kaydeder.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
[aa2].Value = "Sistemden En Son Çıkan Kişi" & " " & Date & " " & "Tarihinde" & " " & Application.UserName
Thisworkbook.save
End Sub

Yalnız Yukarıdaki Durum Giriş Bilgisini İlgili Excel Dosyasının "aa" kolonunun 1 hucresine Cıkıs Bilgisini aa2 hucresine yazdırılıyor.Bunu isteye göre değiştirebilirsiniz.

 

[huso11]

Forumlarda aradım ama bulamamıştım.Teşekkürler.