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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
2 ]3 N  }2 s3 ^- x3 k      2010-03-02 ；
      D:\book1.xls。
) g( @0 Y& o; s, ~6 t请问该如何来实现呢？请各位高手帮忙解决一下
( k8 v: |" I. W4 U谢谢~~

kensington

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

数学者

搞定它了，呵呵~
! S, M, K2 \( X1 Q; M3 r代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
) `# a" r- ]0 G4 `Public Sub getIpAndPcnameAndUsername()
" z, E( Z! w1 _* n
# D: l  S' m# ^" Y; I. e! p    Dim myIp, pcName, userName As String
) E% M; g/ P1 ?$ Q/ F    Dim objWMIService, IPConfigSet, sysInfm As Object
, L! q/ G6 Q2 f' {   
2 G- m* [" H: s- `2 l9 i5 a: t    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
: z$ g) {! w4 X/ D# u    Set sysInfm = CreateObject("WScript.Network")
   
4 ~3 b1 E* p6 k" I6 ^9 Q* v% p& Q    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
    '获取本机ip地址
: [! ~, Z% O3 u, c' `    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
! S% |5 d. h# l! D( L$ x            myIp = Join(ipconfig.IPAddress)
        End If
5 i: ^2 q1 @- q; r        
9 m$ R& y1 _$ j1 Q+ s( O        If myIp <> "0.0.0.0" Then
( B/ y% r0 t" {2 Q            MsgBox "IP Address: " & myI
     End If
        
    Next
* t, Y% A* r& [$ Z5 EEnd Sub