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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
3 K8 T! L, ?% Q) c      172.36.254.22 ；
+ E  P& j$ @4 j; T9 m' Q9 H' C      2010-03-02 ；
- W; _; h/ h+ Z5 l* Y, o      D:\book1.xls。
3 b: Z" Y5 P  D8 S# q1 L0 L请问该如何来实现呢？请各位高手帮忙解决一下
5 P  |  j# y4 o* Q/ C, v谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
1 l0 o2 \' e/ u; Y4 i3 a- `制作环境为office2003
Public Sub getIpAndPcnameAndUsername()

    Dim myIp, pcName, userName As String
9 R4 j3 H0 k, p4 |. ?6 i% R    Dim objWMIService, IPConfigSet, sysInfm As Object
   
9 ~( O# k! K# _- R    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
  {- X3 ~! ]& E6 f7 Z) h) F0 A3 K    Set sysInfm = CreateObject("WScript.Network")
   
, G4 }: x' }- x0 M5 C    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
/ T) a; {, a' D   
    '获取本机ip地址
, X/ N; R4 U0 T9 W+ @- y/ p8 Q7 K    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
" R: z; k3 k: g& f; g$ l        End If
        
        If myIp <> "0.0.0.0" Then
. V; K2 a& X) d- g4 ]            MsgBox "IP Address: " & myI
     End If
        
    Next
End Sub