Çözüldü Log Kaydı Tutma

[Hattushil]

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

 

[RBozkurt]

2. madde için çözüm bulamadım malesef.

 

[Hattushil]

@Korhan Ayhan hocam bakabilir misiniz?

 

[Korhan Ayhan]

Aşağıdaki menüyü kullanırsanız sayfa adı değişimini engelleyebilirsiniz.

 

[Hattushil]

Aşağıdaki menüyü kullanırsanız sayfa adı değişimini engelleyebilirsiniz.

Ekli dosyayı görüntüle 243977

Bilgi için teşekkür ederim hocam.
Paylaştığım örnek Excel dosyasına @RBozkurt hocamın yazdığı makro kodunu nasıl dahil edebilirim?

 

[Korhan Ayhan]

Dosyanızı açınız.
ALT+F11 tuşlarına basarak kod editörünü açınız.
Açılan pencerenin sol tarafında dosya isminizi göreceksiniz. Oraya çift tıklayınız.
Açılan seçeneklerden BuÇalışmaKitabı ya da ThisWorkbook seçeneği olması gerekir. Onun üzerine çift tıklayınız.
Sağ tarafta beyaz bir pencere açılacaktır. Önerilen kodu oraya yapıştırınız.
Dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" biçimiyle kayıt ediniz.