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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
* K& Y, V0 W/ u3 T/ j& j      2010-03-02 ；
      D:\book1.xls。
, M$ N9 `% |. y请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
) d0 g3 G8 Z3 B3 _代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
) n% }& ^/ G" `& R: wPublic Sub getIpAndPcnameAndUsername()
$ p0 T+ ]* d% J# B5 `- W) ^; J
    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
0 O% S- \" I1 ~2 W' o   
" _( N  t) o& H$ d% Z" Y: f    Set objWMIService = GetObject("winmgmts:")
" G2 W% i+ u$ ^    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
( H8 t1 y. M' X+ A3 d    Set sysInfm = CreateObject("WScript.Network")
   
" ?5 v/ w6 G# j$ l/ H% Y+ y$ O    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
# @3 r; M& j5 [9 j    '获取本机ip地址
1 Z9 p) R" y* \! R: \* q    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
9 {8 p: L! c/ }% t& ^+ L            myIp = Join(ipconfig.IPAddress)
- s6 g0 G# Y" {) {. ]        End If
( |7 j( R9 `: a& N/ K9 n; u        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
8 s% U# B+ q' k6 G4 _- F        
    Next
End Sub