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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
% R9 T( ?$ q1 o      172.36.254.22 ；
      2010-03-02 ；
# e1 x7 X* K. `4 ]. a* I' `      D:\book1.xls。
; r1 h( i5 F' U$ S/ w# o! `请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
1 q- T+ L( E* v& h0 g# D/ {, Z/ X. N制作环境为office2003
8 s; E) e: b  B6 A6 xPublic Sub getIpAndPcnameAndUsername()
; K1 e$ c' O  _/ `7 @7 a! C9 R
0 a. j1 U" C/ g; o9 v    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
   
1 z5 S) x% U. M8 v/ x- r1 {2 H    Set objWMIService = GetObject("winmgmts:")
- L- k* D# @" Q) |    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
$ H5 _, J: J8 \+ V  g    '获取本机ip地址
) j! B/ l% k, l, G- X: \% I    For Each ipconfig In IPConfigSet
   
- ?( S' {1 Y  d% ^, E6 o        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
) q2 V# Q# k' W2 F* F% G     End If
        
& Y# }# }4 R6 h3 l( I7 S0 d% X0 P    Next
  X/ J) G: _4 |4 _2 i0 _End Sub