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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
$ V+ y  B8 |9 c      172.36.254.22 ；
      2010-03-02 ；
$ O& ]4 u; f+ ~: F: t      D:\book1.xls。
) M: g* q1 N# r' z: K# M& S, N请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
Public Sub getIpAndPcnameAndUsername()

- \- d% m/ O4 G. \% y# C( c    Dim myIp, pcName, userName As String
% M& W3 h. d9 E* E$ v$ e- r. T    Dim objWMIService, IPConfigSet, sysInfm As Object
   
    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
: \- f, u8 M; ], d    Set sysInfm = CreateObject("WScript.Network")
   
, Z5 G2 g' Q- @* U5 q    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
  ~" E  E+ z+ U, f: r   
    '获取本机ip地址
6 T; l0 }! Q, \    For Each ipconfig In IPConfigSet
; S* `/ `( b( k( L   
' E9 q- s7 ~9 }" d+ `        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
) T9 {% @7 \+ B- K% ^' G; f1 j) V+ i2 G        
% W9 m$ P- h7 |        If myIp <> "0.0.0.0" Then
, q  c! s' w6 S/ w            MsgBox "IP Address: " & myI
     End If
        
    Next
% h' K" ^% c3 H+ L. a# gEnd Sub

kensington

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