如何利用VBA记录哪些用户曾打开某excel文档？

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
# M! J2 S+ r& V- g      172.36.254.22 ；
      2010-03-02 ；
* a4 @- c0 i* j      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

这个问题我没处理过，但是有种方法可以解决，到图书馆把VB所有的书都找出来，一本一本的翻，有几本比较厚的书很管用，书名忘了，好像是叫什么明日科技编的

数学者

搞定它了，呵呵~
4 Y1 J$ v& i& W8 r2 Z0 ?' E5 n代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
* D& L! `/ L8 W1 m% e4 YPublic Sub getIpAndPcnameAndUsername()

    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
$ U* B4 g* E+ d   
" T+ X2 x/ H2 r' t2 |4 e: ?6 I5 C/ f    Set objWMIService = GetObject("winmgmts:")
! Z9 d. ?4 `9 n    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
) ?: F; ~+ U# o    '获取本机ip地址
, D( B3 h( E+ r# c* d8 A# N    For Each ipconfig In IPConfigSet
   
0 N9 y- [5 I3 s9 @. i- \, S: u' b        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
        
, Y2 S% ^2 b- |0 W1 O        If myIp <> "0.0.0.0" Then
( h; e; |# s" s4 u8 I            MsgBox "IP Address: " & myI
/ v) U! u0 ?- t. P3 l5 I     End If
        
    Next
End Sub