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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
      2010-03-02 ；
1 w) B, o7 I+ W: p" b# H      D:\book1.xls。
0 K2 I4 n; W: i. O2 m4 W请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
; m( q8 t' H/ k" t; F制作环境为office2003
+ |. e2 W4 O3 q7 yPublic Sub getIpAndPcnameAndUsername()

    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
   
+ n/ _' {/ ?) `# S    Set objWMIService = GetObject("winmgmts:")
  B) K, @" h% V" S    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
2 z2 H% W' m" v& x2 z    Set sysInfm = CreateObject("WScript.Network")
) q& D3 \; Q# Q+ n( s6 u   
7 A5 J/ W; e6 d6 {9 y) ?    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
+ X( z3 L1 t4 I1 B/ K   
" d5 K( \. c# O+ v! W    '获取本机ip地址
    For Each ipconfig In IPConfigSet
6 S2 V3 x& H1 [% r) w   
' \! y/ C" R! I/ \2 M& C2 P        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
1 r; M  }+ A3 u7 T% _; f4 `8 }. _        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
1 D. p) ~) O; z7 v     End If
        
3 D- u4 J, V, u    Next
End Sub