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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
! j- b) N" n% y& p* {6 V: p0 ~      172.36.254.22 ；
; c9 N' k- Q9 C' C5 O' _) N9 W      2010-03-02 ；
; n0 l5 D1 E) A5 {! V  u8 t. U/ `. p, x      D:\book1.xls。
5 Q; Y' M. O' T请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
5 [5 X0 G+ V- ?- M6 R3 X制作环境为office2003
" J, C; M3 |7 o0 E3 [Public Sub getIpAndPcnameAndUsername()

0 h: b" ~7 O: l    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
   
+ f4 W+ u) G, T7 r, {; X    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
/ U: u3 }) k- T   
6 R, i3 Z+ t6 V6 L0 q) b    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
    '获取本机ip地址
    For Each ipconfig In IPConfigSet
* O" o& ~. u3 Z; e; K' {5 M   
, e( b) ?" Z0 l* ^5 C        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
* ~& v! D0 v  _' D0 ]# g+ y, L9 d+ {7 I        End If
, W3 T6 q/ m$ g        
( S: u! R2 h+ n; X# u        If myIp <> "0.0.0.0" Then
/ h4 [4 ^# J  `: c+ m+ f0 k            MsgBox "IP Address: " & myI
9 z, Z: ?- \' `' t5 b     End If
1 E% R2 G, h3 [( Q6 r- ^; K        
    Next
9 \/ @( Y- f! D" Y# OEnd Sub