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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
0 s. x# f+ o3 t: r1 _9 j2 M4 j6 J- Q      172.36.254.22 ；
4 a5 \1 A0 n3 P1 s      2010-03-02 ；
- Y1 c2 R+ B+ ?; U      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
5 f5 r" G  `  ^" D& qPublic Sub getIpAndPcnameAndUsername()

    Dim myIp, pcName, userName As String
$ a* U  J# [2 l+ I4 M    Dim objWMIService, IPConfigSet, sysInfm As Object
4 Y* r9 e" N2 Z+ ^   
7 J- H: F: |5 o/ W' u& j  n    Set objWMIService = GetObject("winmgmts:")
" W9 s8 ~* D% e' ?    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
+ r# N7 z& f( J9 ?7 m; t* R   
$ O$ s# V3 |8 i) Z    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
' o: Y. K% R# Q: G6 g7 S   
* s7 G8 U0 p  t    '获取本机ip地址
    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
        End If
/ H& Y# \( {8 A        
        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
        
    Next
8 W5 D5 s" S0 t  B3 w* B: `  g+ UEnd Sub