Dosyayı Kimin Açtığını Bulma isimli içerikte, bir Excel dosyasını kimin açtığını belirlemenizi sağlayan bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub DosyaKimin()
Dim ws As Worksheet
Dim kullaniciAdi As String
Set ws = ThisWorkbook.Sheets(1) ' Verilerin kaydedileceği sayfa
kullaniciAdi = Environ("Username") ' Mevcut kullanıcı adını alır
ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = kullaniciAdi & " tarafından açıldı. Tarih: " & Now
End SubAçıklama
Bu kod, Excel dosyasını kimin açtığını belirlemek için kullanılır. "Environ("Username")" fonksiyonu, Excel dosyasını açan kullanıcının adını alır ve bu bilgiyi, açılış tarihi ve saati ile birlikte belirtilen sayfanın ilk boş hücresine kaydeder. Bu sayede dosyanızın kimler tarafından açıldığını takip edebilirsiniz.Kullanım
- Bir modül ekleyin ve üstteki kodu yapıştırın.
- Kodu çalıştırdığınızda, dosyayı açan kullanıcının adı ve açılış zamanı belirtilen sayfada kayıt altına alınacaktır.
- Bu kodu, dosya açıldığında otomatik çalışacak şekilde Workbook_Open olayına ekleyebilirsiniz.