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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
/ O9 H9 p, e8 ?. G# e* N' p      2010-03-02 ；
4 X8 A4 ~6 P" O7 }9 I* M      D:\book1.xls。
7 u& J" e2 W& d2 p' m8 `请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
+ P0 A4 a( z% p1 d- @# z/ p9 P0 W代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
  H; {' w1 L% s$ ^Public Sub getIpAndPcnameAndUsername()
0 G# N$ B/ z- Q
0 X% Z. N+ p4 q' r# V% q    Dim myIp, pcName, userName As String
9 s$ d9 R- l: }, b* T$ T' Z# k    Dim objWMIService, IPConfigSet, sysInfm As Object
   
    Set objWMIService = GetObject("winmgmts:")
6 J3 Y9 O4 B8 N2 ]5 c1 W    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
- ?! E* k' T/ }  o- O- x# x4 t, l- f: Q    Set sysInfm = CreateObject("WScript.Network")
+ H6 b! Q7 Y  o! w& x' I: `- ]   
; a. w* j8 o, D  u! t    pcName = sysInfm.computername  '获取本机计算机名
. y" t6 R. \- Q1 z$ {$ ]* G    userName = sysInfm.userName    '获取本机已登录的用户名
   
: D& O: z6 x6 o' c) B    '获取本机ip地址
% H+ t/ ]+ e0 C' u8 ~8 ]3 m0 ?- R    For Each ipconfig In IPConfigSet
   
, l8 t1 c. M- ~: _6 X, w6 X        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
# b" {2 F1 }; @8 R        End If
        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
        
1 [9 P1 U; h! q7 F    Next
End Sub