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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
* T: X* h" h" |. ]      172.36.254.22 ；
( l; @1 E: x# L9 }      2010-03-02 ；
& j: T( Z, j" }  M/ E% t0 S' x      D:\book1.xls。
3 d4 q; r6 p, m( g请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
) K3 I: y/ Z% S' o
    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
: X; C% W2 Y8 e5 ~   
, _( H! `7 I+ u& f! ?8 F) r    Set objWMIService = GetObject("winmgmts:")
8 D+ @- M# {( K2 Q- n    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
   
( I. W* ~/ r* M- ?4 e    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
: W7 Y6 h- G* f    '获取本机ip地址
    For Each ipconfig In IPConfigSet
, x0 u, Z9 D+ v   
        If Not IsNull(ipconfig.IPAddress) Then
2 Y3 d2 @$ Z  n3 ^( V            myIp = Join(ipconfig.IPAddress)
        End If
        
        If myIp <> "0.0.0.0" Then
1 l# F- `0 T, U- v4 ]" Y6 ^" P- n            MsgBox "IP Address: " & myI
     End If
  F  o, j" F5 ?+ Q- f0 ~: z% J        
7 S: M3 n7 z. D6 W& H% @0 B' ~    Next
5 s/ a, g5 f& U3 r0 d/ yEnd Sub