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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
      2010-03-02 ；
( \4 M5 G1 {2 c- f; Y      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
) l! ^$ _) N* |/ j1 G7 u  F代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
" y" O+ c9 C2 X; n1 X1 W( QPublic Sub getIpAndPcnameAndUsername()

9 A* P9 v  B  L- {3 i  w/ H. I' `    Dim myIp, pcName, userName As String
/ q8 i4 o" M; i5 F3 G# E. g    Dim objWMIService, IPConfigSet, sysInfm As Object
2 H/ [5 w8 u3 r/ C   
0 a. \8 k) C6 u: z) D( P& E    Set objWMIService = GetObject("winmgmts:")
" M) }; I8 Q' m1 Q+ V    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
   
! q( G' _; l4 N& R9 q4 u- G    pcName = sysInfm.computername  '获取本机计算机名
" l: G* m, s- q* j1 Z0 }" `" l4 U    userName = sysInfm.userName    '获取本机已登录的用户名
2 q% K1 o. L& Z% O   
    '获取本机ip地址
    For Each ipconfig In IPConfigSet
   
1 g% S$ b/ [, C; z1 l4 g" A) d/ Y+ }        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
; q% a/ ?) F, U+ I4 i        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
8 x# T8 H$ }! i9 T+ O0 c$ M        
    Next
9 \3 K( c1 l0 f' yEnd Sub