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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
      2010-03-02 ；
' O3 R# C/ G$ T- }* @, B      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
8 h/ E! v8 Z- b! n3 R: h代码也弄出来，在Excel的VB编辑器里执行
# I0 c) J5 m1 B8 d$ i5 F制作环境为office2003
5 l( G3 b1 T1 p6 HPublic Sub getIpAndPcnameAndUsername()

1 P6 ^0 d" y1 j    Dim myIp, pcName, userName As String
& {; E: Q/ W1 x' U    Dim objWMIService, IPConfigSet, sysInfm As Object
   
    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
9 ?8 W6 [$ W; O( r) m4 T; G& O, j    Set sysInfm = CreateObject("WScript.Network")
   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
# t( {1 ?  Q! t# |    '获取本机ip地址
    For Each ipconfig In IPConfigSet
, U3 Y! Z/ T- {" a0 ^   
        If Not IsNull(ipconfig.IPAddress) Then
. V  q8 t! X5 S+ H& {5 ~            myIp = Join(ipconfig.IPAddress)
& Z; l, j) Q/ l6 Q        End If
8 @% u, H# f9 y4 C) R4 W. F) h        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
        
" S6 R4 d) F4 W: A) ?# R" Y    Next
End Sub