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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
/ ^& `. a4 k8 q! e: c0 W# b      2010-03-02 ；
      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
1 J. I4 Y2 f* K7 b. F谢谢~~

kensington

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

数学者

搞定它了，呵呵~
" X4 C; s6 B& |$ N) ?& p代码也弄出来，在Excel的VB编辑器里执行
  T; {1 d7 E; S) g, C3 ^制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
) M% ~& T' l3 d/ |5 x1 `$ |
( S( L% I- k; l" v6 E, @8 k1 _    Dim myIp, pcName, userName As String
- g% ?: M  k/ g% _% e$ Y. {    Dim objWMIService, IPConfigSet, sysInfm As Object
2 R1 c, @7 n! M! ]   
& x' `" N2 \' }1 c. ?# n; G    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
6 j( G) S! v  f    Set sysInfm = CreateObject("WScript.Network")
( N0 R8 ?, a  `. k/ x8 O   
    pcName = sysInfm.computername  '获取本机计算机名
) J, I/ z* q1 b# F% t+ b    userName = sysInfm.userName    '获取本机已登录的用户名
   
. |* {; w8 A2 M# }& m0 V    '获取本机ip地址
9 |0 h( `8 b: p" T+ D    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
- T8 M7 c& M6 a. D! ^: x1 g            myIp = Join(ipconfig.IPAddress)
        End If
        
; N" T& J  w7 O, |9 e+ x        If myIp <> "0.0.0.0" Then
! N3 i9 ?3 [1 [3 v            MsgBox "IP Address: " & myI
, a$ P0 H+ d" c  M7 X# P8 Y. t     End If
        
" J- m: U+ }# T    Next
End Sub