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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
4 h: b4 H- w0 E      172.36.254.22 ；
; [5 s( J. m1 H& Q9 I9 {      2010-03-02 ；
      D:\book1.xls。
) K: D1 \6 C. {3 \5 c* z$ H请问该如何来实现呢？请各位高手帮忙解决一下
) m* F4 M2 E* B谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
2 l3 ~# {! e1 f" c7 e9 x" T2 xPublic Sub getIpAndPcnameAndUsername()
5 b. V1 _0 X0 ^7 ?6 Y( E0 \/ u/ h# x
& C# Q" ?+ S- s9 U- ^/ B( }    Dim myIp, pcName, userName As String
$ D& K" j4 o# a' j5 k  @; e; j    Dim objWMIService, IPConfigSet, sysInfm As Object
* F( R: Y, Z8 a, ~9 |   
1 s/ d# ]8 `) _- n    Set objWMIService = GetObject("winmgmts:")
2 F. X1 h& H5 I( ^3 ^    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
! E3 e$ d7 z2 H3 X4 N   
    pcName = sysInfm.computername  '获取本机计算机名
9 X7 \  u- P5 S. o& a    userName = sysInfm.userName    '获取本机已登录的用户名
   
( _+ R4 g" b6 `* d    '获取本机ip地址
; B0 q# C: K' n3 r! Y" B$ N: U    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
        
" m- g& b, l( ^2 ]        If myIp <> "0.0.0.0" Then
- O! \7 f$ \4 H$ a            MsgBox "IP Address: " & myI
     End If
        
& `7 c! P. P8 U% r' f, m) i$ J# ^    Next
; l: n% Q1 U# l  {End Sub