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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
% \  r1 n* m. w$ L9 L/ w      172.36.254.22 ；
. ?/ C/ }1 Y0 r7 i* F      2010-03-02 ；
4 F- F$ X+ _, V- m+ O: z4 o      D:\book1.xls。
% h& I! w) ]9 [8 R* s- t+ z请问该如何来实现呢？请各位高手帮忙解决一下
/ D) @- S8 ]3 u, D& x1 t5 g4 Q谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
. b" Z3 d1 B, s制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
4 z, C. p; m- z* `9 y
; A0 o- Y7 U- H6 a3 F+ t4 d( R; O    Dim myIp, pcName, userName As String
: w6 L7 `. {& [$ m    Dim objWMIService, IPConfigSet, sysInfm As Object
5 v: Y) ]' }/ X0 b   
    Set objWMIService = GetObject("winmgmts:")
$ s! w; y) c& P4 ]2 d: \) x- I    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
& c. w4 O& S5 m8 B   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
% o* c8 o$ j; b9 L3 q. {5 T: K' K/ \   
0 x5 f) d; ~. o5 ?7 @/ Z7 }) ?% b    '获取本机ip地址
    For Each ipconfig In IPConfigSet
   
/ I) O: ^, P; C/ |' Y) r0 R! E        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
$ u5 h2 u2 K. Z* |        
        If myIp <> "0.0.0.0" Then
" W# g( t* {" |' G$ _            MsgBox "IP Address: " & myI
2 M# N# A3 I$ a9 u6 \     End If
) D/ y* _# G3 o8 z0 w5 W        
& i+ u* ?! C* R! R    Next
End Sub