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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
      2010-03-02 ；
0 L  @& f5 ?; W      D:\book1.xls。
* {9 u$ u4 g0 `请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
1 A+ u" \  V- c/ T$ D9 Q制作环境为office2003
Public Sub getIpAndPcnameAndUsername()

% l) J" @+ j( O/ }4 m' I3 p8 G* C    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
   
    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
( y" k% r. `: |    Set sysInfm = CreateObject("WScript.Network")
; R3 _% f3 n* Z  |' a. a   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
    '获取本机ip地址
    For Each ipconfig In IPConfigSet
- e4 P6 u% V( j. z& V- Z% Y   
6 Y) |" W/ l( R, b, V8 e# C* B        If Not IsNull(ipconfig.IPAddress) Then
: X. ]- X& g4 F; y" X1 \) V            myIp = Join(ipconfig.IPAddress)
        End If
- Q+ ~' t1 H4 m: K' @/ V, v, z6 m* B: h        
& ^. [+ B8 V! z) H( ]        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
% Z) M3 B" g, P5 {0 Y/ t; g' k4 u     End If
        
    Next
, y! R" w2 A1 NEnd Sub