Txt Dosyasına Kullanıcı Bilgilerini Aktarma

[bekir38]

merhaba arkadaşlar,
şirket içerisinde kullanıma açtığım 6 excel kitabım var.
bunları kim açmış? ne zaman? ve nekadar süre? gibi bilgilere ulaşmak istiyorum. çünkü bazen bir hata veya bir veri kaybına kimin sebep olduğunu bulmak istiyorum. amaç o kişiyi suçlamak değil, yaptığı hatanın farkına varmasını sağlamak.
daha önceleri böyle bir çalışma görmüştüm.
hatta eski şirkette hakkı arkadaşım yapmıştı böyle birşey ama,
şimdi sitede aradım yok.

yardımcı olursanız sevinirim.

iyi çalışmalar,

 

[N.Ziya Hiçdurmaz]

yanıt

Bilgisayar Kullanıcı adını ve dosyanın açılış saat&tarihini C:\ test metin D. içinde verir.

Sub auto_Open()
    Open ThisWorkbook.Path & "\test.txt" For Append As #1
    Print #1, Application.UserName, Now
    Close #1
End Sub

 

[bekir38]

Bilgisayar Kullanıcı adını ve dosyanın açılış saat&tarihini C:\ test metin D. içinde verir.

Sub auto_Open()
    Open ThisWorkbook.Path & "\test.txt" For Append As #1
    Print #1, Application.UserName, Now
    Close #1
End Sub

çok teşekkürler, gayet güzel oldu.
kapatma saatini de atabilirmiyiz?
yani 10 dakika açık kaldığını görmek istesem,

 

[N.Ziya Hiçdurmaz]

yanıt

Sub auto_Open()
    Open ThisWorkbook.Path & "\test.txt" For Append As #1
    Print #1, Application.UserName, Now & " " & Format(Now, "dddd d mmmm yyyy hh:mm:ss")
    Close #1
End Sub

 

[bekir38]

çok teşekkürler,
gayet güzel oldu,