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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
! z7 |  d' m& d      172.36.254.22 ；
      2010-03-02 ；
, C7 a: F/ c& U4 Z4 X, G* c* E! d/ R* s# W      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
" ?8 O: J9 {% V& S5 X( l制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
9 }1 @1 I7 `8 w/ g4 k9 p8 C# U
    Dim myIp, pcName, userName As String
6 E8 _: O) u9 z( `$ k    Dim objWMIService, IPConfigSet, sysInfm As Object
7 V- ]$ l2 x; t. `( Z; Q   
    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
   
1 Z0 Q/ t4 \6 g& k. ~' b$ g7 _    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
    '获取本机ip地址
) `+ Z" O, n. I* b- m( r; p4 J    For Each ipconfig In IPConfigSet
   
2 I! Q  z; D1 }5 R        If Not IsNull(ipconfig.IPAddress) Then
/ _3 Z5 |  n* K            myIp = Join(ipconfig.IPAddress)
        End If
7 v. ?# ~) D  P, G4 X, A0 g5 l        
2 Q2 B8 P- s; F+ b3 b% E% g        If myIp <> "0.0.0.0" Then
# K1 R  W5 l3 s! Y+ @            MsgBox "IP Address: " & myI
; [5 c) w% U. e  s) A' w) H, V     End If
* T+ p) Z6 I* m: p2 j% H6 d; Y# r        
  ?3 h$ N6 u+ K2 b    Next
7 Y2 J* e7 }( n, v3 ?+ ?9 ~End Sub