İP NUMARASI GÖSTERECEK MAKRO

[erdalo]

ÝP NUMARASI G�STERECEK MAKRO

:yardim: Arkadaşlar benim excel dosyalarıma en son hangi kullanıcının yada kullanıcının ıp numarasını göstermesini sağlayacak bir makro yada programa ihtiyacım.yardım edebilirseniz.sevinirim

 

[Haluk]

Aşağıdakileri söz konusu dosyada yeni bir module yerleştirip, kaydedin. Dosyayı kapattığınız anda 1nci sayfada A1, B1 ve C1 hücrelerinde gerekli bilgiler yazılacaktır.

Private Declare Function apiGetUserName Lib _
"advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) _
As Long
'
Sub Auto_Close()
    Sheets(1).Range("A1") = "Son Kullanıcı :"
    Sheets(1).Range("B1") = fGetUserName
    Sheets(1).Range("C1") = Now
End Sub
'
Function fGetUserName() As String
    Dim lngLen As Long, lngRet As Long
    Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngRet = apiGetUserName(strUserName, lngLen)
    If lngRet Then
    fGetUserName = Left$(strUserName, lngLen - 1)
    End If
End Function

 

[ASMET67]

haluk bey teşekkürler. Koda IP no ve PC adlarını nasıl eklerim.
Aynı kullanıcı farlı pc lerden dosyayı açabiliyor. Bunun takibi de gerekiyor?

 

[Haluk]

https://www.excel.web.tr/threads/macronun-clistigi-dosyadaki-pc-ip-nmarasini-ve-pc-adini-almak.175146/


.