Excel Dosyası Her Açıldığında Kayıt Tutan LOG.TXT Dos

[esavas]

Arkadaşlar merhaba;

Bir Excel dosyasının her açıldığı tarih, saat, bilgisayar adı ya da bilgisayara ait bir bilgi LOG dosyası tutuluyor gibi TXT dosyasına yazdırılabilir mi?

Bu konuda yardımlarınızı bekliyorum.

:yardim:

[xxrt]

Dosyanızın Thisworkbook kısmına şu kodları yazdığınızda,Dosyanın açılış zamanı ve kim tarafından açıldığını C:\dosyaacılısbilgileri.txt olarak kaydedecektir.

Private Sub Workbook_Open()
Dim Counter As Long, LastOpen As String, Msg As String
LastOpen = GetSetting("Maytas", "Dosya", "Opened", "")
[a1] = "En son açılış tarihi: " & LastOpen
[a2] = "Dosyayı en son açan kullanıcı: " & Application.UserName
LastOpen = Date & " " & Time
SaveSetting "Maytas", "Dosya", "Opened", LastOpen
'txt dosyasına aktarıyor
Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim i As Integer
Open "C:\dosyaacılısbilgileri.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
Print #1, veri1; " "; veri2;
Next i
Close #1
End Sub

[esavas]

Merhabalar;


xxrt yanıtın için çok teşekkür ederim. İstediğim buydu. Umarım ihtiyacı olanların da işine yarar.

Kolay gelsin.
:mutlu:

[demirtas]

Benim bu kod ile merak ettiğim 1 durum var: Logu tutulan dosya 1 ağda yer alıyorsa yine de kod bunun logunu tutacak mıdır?

[TANTANAAA]

Aşağıdaki kodları thisworkbook'a yazıyorum, dosya açılışında CAL_TRX INFO.TXT dosyasını hedefte oluşturuyor ve dosyayı açan hakkında lisans ismini ve tarih atıyor.
Problem1;dosyayı başka biri açtığında ilk log kaydını siliyor.
Problem2;Dosyayı açan bilgilerinde lisans ismine şirket adı yazılmış ise kimin açtığı belli olmuyor.Kullanıcının IP numarasını alabilmek münkünmü?


Private Sub Workbook_Open()
Sheets("SHEET1").Select
Dim Counter As Long, LastOpen As String, Msg As String
LastOpen = GetSetting("Maytas", "Dosya", "Opened", "")
[A2] = "LastOpenDate: " & LastOpen
[A1] = "LastOpenUser: " & Application.UserName
LastOpen = Date & " " & Time
SaveSetting "Maytas", "Dosya", "Opened", LastOpen
'txt dosyasina aktariyor
Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim i As Integer
Open "C:\Documents and Settings\Administrator\Desktop\CAL_TRX INFO.TXT" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
Print #1, veri1; " "; veri2;
Next i
Close #1
Sheets("HP_INFOFORM").Select
End Sub