Makronuzun hangi bilgisayarda veya kim tarafından çalıştırıldığını loglamak (kayıt altına almak) ister misiniz?
Environ Komutu
Sub Kimsin()
Dim Kullanici As String, PC As String
Kullanici = Environ("USERNAME") 'Windows Kullanıcı Adı
PC = Environ("COMPUTERNAME") 'Bilgisayar Adı
Range("A1").Value = "İşlemi Yapan: " & Kullanici & " (" & PC & ")"
End Sub
Dim Kullanici As String, PC As String
Kullanici = Environ("USERNAME") 'Windows Kullanıcı Adı
PC = Environ("COMPUTERNAME") 'Bilgisayar Adı
Range("A1").Value = "İşlemi Yapan: " & Kullanici & " (" & PC & ")"
End Sub
Güvenlik ve takip gerektiren dosyalarda "Kim, ne zaman yaptı?" sorusunun cevabıdır.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap