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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
3 r, ]4 `# h0 l" r      172.36.254.22 ；
      2010-03-02 ；
      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
4 C1 \4 c/ J# C' w# {谢谢~~

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
' a5 Y4 l5 R+ j+ V) p制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
( j7 b% i) c1 G4 ]
; {) ^2 i) [5 Z$ h+ 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")
    Set sysInfm = CreateObject("WScript.Network")
, P3 S  \4 ^5 c  q4 f   
8 s& x- p% n. o% D" I3 Q* z  A  c    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
$ `  S2 x# j! L2 l/ ^# h    '获取本机ip地址
6 O5 {1 [- I/ c4 D. q5 o& w+ I    For Each ipconfig In IPConfigSet
3 F  K! w0 ~% d( Q/ ~! Y% J   
        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
: m! O& T& x, L0 H        End If
: ]6 P9 j! g1 t' `9 M" u- ?        
* M; P/ ^) |0 }  [        If myIp <> "0.0.0.0" Then
8 J; `/ C6 q5 h$ [0 Z            MsgBox "IP Address: " & myI
     End If
$ w5 I- y# e7 y) A        
    Next
End Sub

kensington

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