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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
. S! v: _6 I! y- O      2010-03-02 ；
      D:\book1.xls。
# {; s; A8 o- V! H' s6 s  ]请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
7 U& A9 g9 ~, D/ S+ n2 R6 `$ K制作环境为office2003
7 a# c. M9 l) t$ L% u7 e: i; ?5 HPublic Sub getIpAndPcnameAndUsername()
3 T- O4 R  h- Z: Z, s( u+ w8 P
% t: L! w7 G) ~9 ?) K7 Y2 V# ~    Dim myIp, pcName, userName As String
7 V2 Y; Y, S1 f" Z0 w' K    Dim objWMIService, IPConfigSet, sysInfm As Object
   
    Set objWMIService = GetObject("winmgmts:")
; c7 V# G4 a. {- v" V8 M: V0 Y    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
* g5 v7 |) f6 K6 F* P   
3 p' k  d: P7 K8 C9 j    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
' w. E& w. H  [) C, u( X! u  r. l   
    '获取本机ip地址
+ \" X1 g, V4 Q5 H  U2 X    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
& J0 S8 V4 Z$ J: p            myIp = Join(ipconfig.IPAddress)
0 I* o1 t# K2 G: k; N- d        End If
        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
        
    Next
# S& _  ]7 r0 r8 U  yEnd Sub