Hai Heru,
Mungkin begini :
1. Jika workbook tersebut adalah sebuah shared workbook, coba script :
Dim wbkA As Workbook
Dim wbkS As Workbook
Dim rngA As Range
Dim lRow As Long
Dim vUser As Variant
Set wbkA = ThisWorkbook
Set wbkS = Workbooks.Open(wbkA.Path & "\dt.xlsx")
wbkA.Activate
vUser = wbkS.UserStatus
For lRow = 1 To UBound(vUser, 1)
Debug.Print vUser(lRow, 1)
Next lRow
2. Jika workbook tersebut bukan shared workbook dan boleh berisi VBA, bisa
dengan meletakkan script berikut pada event workbook open dan workbook
before save untuk melakukan pencatatan pengguna file.
Dim rng As Range
Dim lRec As Long
Set rng = Sheet1.Range("g1")
With rng
lRec = .CurrentRegion.Rows.Count
With .Offset(lRec)
.Value = Environ("COMPUTERNAME")
.Offset(0, 1).Value = Environ("LOGONSERVER")
.Offset(0, 2).Value = Environ("USERDOMAIN")
.Offset(0, 3).Value = Environ("USERNAME")
.Offset(0, 4).Value = Now
End With
End With
Dari ComputerName bisa diperoleh IP Address menggunakan Ping.
kaya gitu kali ya...
Wassalamu'alaikum Wr. Wb.,
Kid.
2013/3/9 Heru Safrudin <[email protected]>
> Dear Master,
>
> Saya punya file yang saya taruh di sharing folder
> Saya ingin tahu siapa saja yang membuka/menggunakan file yang saya sharing
> Bisakah kita tahu no IP pengguna ?
>
> --
> Terima kasih
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Heru Safrudin
>
>
> ------------------------------------
>
> ---------------------------------------------------------------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> [email protected]
>
> posting ke milis, kirimkan ke:
> [email protected]
>
> berkunjung ke web milis
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> melihat file archive / mendownload lampiran
> http://www.mail-archive.com/[email protected]/
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-belajar-excel.1048464.n5.nabble.com/
>
> menghubungi moderators & owners: [email protected]
>
> keluar dari membership milis (UnSubscribe):
> kirim mail kosong ke [email protected]
> ---------------------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
