Oow berarti harus manual ya, Ok deh thanks, saya kira computer name udah cukup ...
Thanks 2013/3/11, Mr. Kid <[email protected]>: > 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 >> >> >> >> > -- Terima kasih وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ Heru Safrudin
