Başlıkta da belirtiğim gibi excel dosyalarımın kimin tarafından açıldığı ve yapılan işlemler hk kayıt tutmak istiyorum.
Daha önce forumda paylaşılan konu üzerinden ilerleyip aşağıda paylaştığım excel dosyasını oluşturdum.
Ekli örnek dosyada;
1. Excel dosyasının kimin tarafından açıldığını
2. Dosyadaki sheetlerin adlarının değiştirilip değiştirilmediğini
@RBozkurt hocam eski konuya yazdığım cevaba istinaden aşağıdaki kodu paylaştı ama mevcut projeme eklemeyi beceremedim
Private Sub Workbook_Open()
Dim userName As String
Dim computerName As String
Dim lastRow As Long
'Kullanıcı adını ve bilgisayar adını al
userName = Environ("username")
computerName = Environ("computername")
'LOG sayfasında verileri ekle
With Sheets("LOG")
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1").Value = "Kullanıcı"
.Range("B1").Value = "Bilgisayar"
.Range("C1").Value = "ZAMAN"
.Range("A" & lastRow + 1).Value = userName
.Range("B" & lastRow + 1).Value = computerName
.Range("C" & lastRow + 1).Value = Now()
End With
End Sub
Daha önce forumda paylaşılan konu üzerinden ilerleyip aşağıda paylaştığım excel dosyasını oluşturdum.
Ekli örnek dosyada;
1. Excel dosyasının kimin tarafından açıldığını
2. Dosyadaki sheetlerin adlarının değiştirilip değiştirilmediğini
@RBozkurt hocam eski konuya yazdığım cevaba istinaden aşağıdaki kodu paylaştı ama mevcut projeme eklemeyi beceremedim
Private Sub Workbook_Open()
Dim userName As String
Dim computerName As String
Dim lastRow As Long
'Kullanıcı adını ve bilgisayar adını al
userName = Environ("username")
computerName = Environ("computername")
'LOG sayfasında verileri ekle
With Sheets("LOG")
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1").Value = "Kullanıcı"
.Range("B1").Value = "Bilgisayar"
.Range("C1").Value = "ZAMAN"
.Range("A" & lastRow + 1).Value = userName
.Range("B" & lastRow + 1).Value = computerName
.Range("C" & lastRow + 1).Value = Now()
End With
End Sub
Son düzenleme:
