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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
: h# |  o7 F" ]/ u) m      172.36.254.22 ；
      2010-03-02 ；
      D:\book1.xls。
8 W# O( D3 U, `2 Q请问该如何来实现呢？请各位高手帮忙解决一下
; ~* @& a# ~) U$ i/ Y谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
% V2 j! a6 K; _% m' O. s1 cPublic Sub getIpAndPcnameAndUsername()
+ F! R7 f& K6 d+ _- @
    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
" G0 {7 m$ B. ?+ g. G   
    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
/ B7 l; T1 t1 ]5 Q   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
7 H6 T' e0 w6 L# g5 f  j- ]4 t! _9 h   
+ v1 q+ d; {/ f6 p3 {8 g0 D: ?    '获取本机ip地址
/ D& q# w. T; V, d9 u( \; y    For Each ipconfig In IPConfigSet
; F3 \; b6 ]. I; Y! W) N* u8 [   
' @/ H) A" Q" m( T+ P        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
9 ?# o' w0 n; v7 P        End If
        
. |8 P* Z# P! _2 J8 V        If myIp <> "0.0.0.0" Then
9 M: b5 w  x' D% [2 L' U0 b            MsgBox "IP Address: " & myI
     End If
( h: Y  k; v2 u, g8 Y        
2 W7 D. X3 U9 U' n/ `, ]0 C3 r$ N    Next
, u! o! a# s  c! bEnd Sub