Dosya Açıldığında Log Kaydı Alma

[Hattushil]

Aşağıda paylaştığım örnek excel tablomda dosyayı açıp değişiklik yapılınca YEDEK sheetine log kaydı atıyor.
Bu alanda dosya açıldığında kimin tarafından açıldığı kaydını bir türlü ekleyemedim.
Yardımcı olursanız sevinirim.

Bir diğer sorum ise dosyada kullandığım formülleri yeni satır eklendiğinde nasıl otomatik kopyalatabilirim?

Not: YEDEK sheeti gizli olduğu için F11 ile açılıpı F12 ile gizleniyor.

 

[RBozkurt]

Sheets("YEDEK").Cells(Satır, 4) = Environ("Username") yapınız.

 

[Hattushil]

Sheets("YEDEK").Cells(Satır, 4) = Environ("Username") yapınız.

bu kodumu diğer kodlardan sonra mı ekliyoruz hocam?

 

[RBozkurt]

Yok kendi dosyanıza satır,4 olan yeri değiştireceksiniz

 

[Hattushil]

Yok kendi dosyanıza satır,4 olan yeri değiştireceksiniz

4. satırın kodunu verdiğiniz kod ile değiştirdim ama açılışta log kaydı atmadı.

 

[RBozkurt]

Verdiğiniz dosyada loglama işlemi çalışmıyor zaten.

Kullanıcı bilgisi için sizin kodlarda Application.UserName yerine Environ("Username") yazmanızı önerdim.

 

[Hattushil]

Verdiğiniz dosyada loglama işlemi çalışmıyor zaten.

Kullanıcı bilgisi için sizin kodlarda Application.UserName yerine Environ("Username") yazmanızı önerdim.

son halini bu şekilde düzenledim
sizin yazdığınız kodu da 4. satır ile değiştiridim.

yanlış mı yaptım acaba bakabilir misiniz?

 

[RBozkurt]

Dosyayı açınca herhangi bir log düşmüyor. Sizde çalışıyorsa kullanıcı adını loglaması gerekir.

 

[Hattushil]

Dosyayı açınca herhangi bir log düşmüyor. Sizde çalışıyorsa kullanıcı adını loglaması gerekir.

değişiklik yaptığımda log kaydı atıyor ama sadece dosyayı açtığımda düşmüyor.
bunun için nasıl bir kod lazım?

 

[RBozkurt]

log tutmak

Bende durum aşağıdaki gibi oluyor..

www.excel.web.tr

Burada eklemiştim zaten. Sadece dosya açılınca loglar.

 

[Korhan Ayhan]

ThisWorkbook bölümündeki Private Sub Workbook_Open() olayını değiştirmeniz gerekir.

Private Sub Workbook_Open()
    Sheets("YEDEK").Visible = 2
    Application.OnKey "{F11}", "GÖSTER"
    Application.OnKey "{F12}", "GİZLE"

    On Error Resume Next
    Satır = WorksheetFunction.CountA(Sheets("YEDEK").Range("A:A")) + 1
    Sheets("YEDEK").Cells(Satır, 1) = Satır - 1
    Sheets("YEDEK").Cells(Satır, 2) = Date
    Sheets("YEDEK").Cells(Satır, 3) = Time
    Sheets("YEDEK").Cells(Satır, 4) = Environ("Username")
    Sheets("YEDEK").Cells(Satır, 5) = "Dosya Açıldı !"
    Sheets("YEDEK").Cells.EntireColumn.AutoFit
End Sub

 

[Hattushil]

log tutmak

Bende durum aşağıdaki gibi oluyor..

www.excel.web.tr

Burada eklemiştim zaten. Sadece dosya açılınca loglar.

bunu mevcut dosyama nasıl ekleyebilirim?
log kısmını direk kopyaladığımda çalışmadı da.

 

[Hattushil]

ThisWorkbook bölümündeki Private Sub Workbook_Open() olayını değiştirmeniz gerekir.

Private Sub Workbook_Open()
    Sheets("YEDEK").Visible = 2
    Application.OnKey "{F11}", "GÖSTER"
    Application.OnKey "{F12}", "GİZLE"

    On Error Resume Next
    Satır = WorksheetFunction.CountA(Sheets("YEDEK").Range("A:A")) + 1
    Sheets("YEDEK").Cells(Satır, 1) = Satır - 1
    Sheets("YEDEK").Cells(Satır, 2) = Date
    Sheets("YEDEK").Cells(Satır, 3) = Time
    Sheets("YEDEK").Cells(Satır, 4) = Environ("Username")
    Sheets("YEDEK").Cells(Satır, 5) = "Dosya Açıldı !"
    Sheets("YEDEK").Cells.EntireColumn.AutoFit
End Sub

teşekkür ederim Korhan AYHAN hocam
denedim oldu