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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
5 C% X+ }4 M: d- E8 ]5 r      172.36.254.22 ；
      2010-03-02 ；
1 D7 Z9 o8 ]: N      D:\book1.xls。
+ ^! _: Z- _) }- e2 ]0 m请问该如何来实现呢？请各位高手帮忙解决一下
2 ~. W: v- \  x- z$ I谢谢~~

kensington

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

数学者

搞定它了，呵呵~
# N7 n& ]# F4 c: r代码也弄出来，在Excel的VB编辑器里执行
9 u9 `( A' X: N; y制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
1 }: g$ D3 ^7 W% [" z
    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
7 ?0 t* A( y! U+ W8 v9 ~   
& [! T& i: j) [0 _, \" z    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
   
    pcName = sysInfm.computername  '获取本机计算机名
  ^- X& R" {8 V$ s% K    userName = sysInfm.userName    '获取本机已登录的用户名
   
  `/ C( R) i, t+ z5 _    '获取本机ip地址
1 A1 R4 E/ P. F# Z, @    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
5 I( {; k$ y& P8 c: A* Q6 T4 H9 [; C/ J            myIp = Join(ipconfig.IPAddress)
* s2 v/ q& R3 _& h, _/ V* E% p2 y        End If
1 m! I! _2 }& ]        
        If myIp <> "0.0.0.0" Then
8 D) ^! C( n4 O# Y            MsgBox "IP Address: " & myI
     End If
        
    Next
" ?1 h  m' k4 [' ^  V8 E9 E3 Z* Z3 B, DEnd Sub