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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
/ B$ L+ r8 p8 e8 U! a) {* a% Q      2010-03-02 ；
4 k. Z2 y" ?7 i      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
3 o" @9 g8 z4 i" T) G谢谢~~

kensington

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

数学者

搞定它了，呵呵~
, j1 F) z4 p: A代码也弄出来，在Excel的VB编辑器里执行
4 ?  A- D2 I2 M9 G制作环境为office2003
Public Sub getIpAndPcnameAndUsername()

    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
7 G5 t! ~# E: U7 [' N& h- Y% c2 j   
* Z8 r7 Z+ v% T    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
( p5 J! W2 m. ]) W8 u% c* C. P    Set sysInfm = CreateObject("WScript.Network")
   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
7 u" W5 X: C" [  U+ y4 S& t   
- r+ T7 {3 D( L3 r! c* N    '获取本机ip地址
    For Each ipconfig In IPConfigSet
9 Y( x/ {2 Q1 r! M   
/ @/ z. x) Z: t4 L* B        If Not IsNull(ipconfig.IPAddress) Then
' C, C' i6 ~: F5 `: b- R( R            myIp = Join(ipconfig.IPAddress)
1 C9 l3 W- \) R  W- t$ y% r        End If
, P; k. E9 Q) X7 S        
+ B6 c" r: d; \3 `, a7 l' ~        If myIp <> "0.0.0.0" Then
. q9 o3 |+ ]3 L            MsgBox "IP Address: " & myI
     End If
        
. _2 W  A  Q! o2 [$ f2 `    Next
' l; l4 V# g6 P$ |- M! eEnd Sub