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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
1 Q1 p  P/ U. w. ~" K      2010-03-02 ；
! H; @$ A% o0 F: J: @. a      D:\book1.xls。
$ X$ S9 `5 s! g4 O, l$ D+ m( a请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
* d& `/ V+ w* ~6 C& Z" W8 d代码也弄出来，在Excel的VB编辑器里执行
3 a1 B9 L$ J/ s制作环境为office2003
Public Sub getIpAndPcnameAndUsername()

* d& {. k8 M9 ]1 r' a5 b. h    Dim myIp, pcName, userName As String
) p+ m. A: |8 b. z3 n# z: @    Dim objWMIService, IPConfigSet, sysInfm As Object
   
    Set objWMIService = GetObject("winmgmts:")
7 q4 ]: `, v5 Y+ X5 w    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
   
9 C  w0 z* E4 z6 i* }6 [    pcName = sysInfm.computername  '获取本机计算机名
- S' I4 F  s" e: }" j9 u) v    userName = sysInfm.userName    '获取本机已登录的用户名
   
% H" \7 ?0 m# R2 Q) d( }: b7 r( `    '获取本机ip地址
+ O# u' F/ K3 F7 L. H& u    For Each ipconfig In IPConfigSet
   
7 O- m& p0 D7 v! A# k" N; |        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
- M- V/ @& P1 `$ Q        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
7 R# \3 y; |% ?$ x  ^        
" M, x# b) m7 n7 D( p    Next
+ x, @9 R" E& ]5 Y( j% Y' f* oEnd Sub