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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
, d/ C; x/ u# a      2010-03-02 ；
      D:\book1.xls。
7 ?( T2 X$ y' u; l4 i3 F' k请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
0 d' o1 G& G7 t0 c2 T制作环境为office2003
Public Sub getIpAndPcnameAndUsername()

# E5 e8 G8 b) @# x    Dim myIp, pcName, userName As String
0 q3 Y6 k% ^1 u3 _/ }    Dim objWMIService, IPConfigSet, sysInfm As Object
   
    Set objWMIService = GetObject("winmgmts:")
. v# W+ P5 x+ R! m2 Y) F7 D/ t* `    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
" b) o& G+ w' `9 h9 q    Set sysInfm = CreateObject("WScript.Network")
' k* f2 _5 _# w1 t: G8 J6 j   
$ b! V3 m; r7 L; V  i    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
0 V, T9 ?9 L) D# ^   
' Q, W. Q4 S" n7 [    '获取本机ip地址
    For Each ipconfig In IPConfigSet
% m2 `/ O5 s+ \" S   
& h7 Q. r5 g9 j2 @4 q5 X. ]        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
        
- T1 l7 T; O% `+ R        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
; {" v: I- Z9 x4 K     End If
0 o# y3 b( `+ Y        
' Q! a6 Z, J9 f5 j6 f$ U: y9 H1 R8 Z    Next
End Sub