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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
1 l% y+ ]  k" h2 z7 q0 p      2010-03-02 ；
      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

数学者

搞定它了，呵呵~
3 Z- ~$ ]( Z4 b- j4 ^. S& u* B( q# \代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
7 R8 A/ g: r* ]& ~' l4 A, C* u
    Dim myIp, pcName, userName As String
/ M% v& o' [) j9 E1 G: S    Dim objWMIService, IPConfigSet, sysInfm As Object
   
    Set objWMIService = GetObject("winmgmts:")
6 k/ u% P8 w& C: g! S4 P6 @; k    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
+ g2 K" K: m% ]/ V   
% z% Z' @* O6 p6 G    pcName = sysInfm.computername  '获取本机计算机名
4 ~# U6 R6 |' Z  k7 E    userName = sysInfm.userName    '获取本机已登录的用户名
   
% e. N, I" E( q. c1 F1 p, I$ w    '获取本机ip地址
    For Each ipconfig In IPConfigSet
0 o& l4 I( L8 u) L   
- o  m* I+ s! a; {, z        If Not IsNull(ipconfig.IPAddress) Then
9 L3 X# d8 W& |7 K9 K# O8 b            myIp = Join(ipconfig.IPAddress)
        End If
! {2 N2 l+ B9 C, `3 ?        
* [/ q! }) L5 |1 ^, @# s( g2 `) ?$ `, q        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
( `/ W  k* \9 C        
9 f0 U$ u* C' Y- i    Next
. |! w5 m5 U& \. ^+ ~8 Y+ AEnd Sub

kensington

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