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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
      2010-03-02 ；
      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
( Y, j+ W$ T9 q" i& |, o谢谢~~

数学者

搞定它了，呵呵~
( ]; Z' D+ [. g# J; w代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
0 l0 D, s! `- ]1 Q
! M, ^5 S& b8 T' C( v    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
5 K' ?1 ~4 ]  r6 A9 U/ @   
3 H/ e- d. w( T5 _* z$ `1 A/ l1 O0 h    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
- b. d' s+ I( G) `  A    Set sysInfm = CreateObject("WScript.Network")
, C) J: S# S8 ~2 b6 k; I% z) x# [   
    pcName = sysInfm.computername  '获取本机计算机名
* f4 x' I, x: j8 U% L1 \    userName = sysInfm.userName    '获取本机已登录的用户名
7 l3 o' d  l6 x3 h; U2 d+ e' v   
    '获取本机ip地址
; Z( b7 p1 a" d  p2 J    For Each ipconfig In IPConfigSet
3 _- w* e; k  Q) ?   
        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
        
    Next
End Sub

kensington

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