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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
* ^9 Z) L8 |0 a' E% M: j$ a      2010-03-02 ；
      D:\book1.xls。
' ^+ U8 d9 n. O% t5 Y3 k: n3 h请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
$ {$ O/ r0 Z/ p0 yPublic Sub getIpAndPcnameAndUsername()

    Dim myIp, pcName, userName As String
% A+ z0 s2 ~9 p( ^) y, z8 h, X5 X    Dim objWMIService, IPConfigSet, sysInfm As Object
   
" L) Y% G) M4 |' z0 L/ k    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
* p- W" p" N/ G3 c! H5 m   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
- P1 f4 m4 |& {: M: N    '获取本机ip地址
0 w. D3 t6 C7 O) u* e    For Each ipconfig In IPConfigSet
8 `7 u$ i1 h" L& N1 h# k- s5 k8 t   
/ F5 t3 f7 ^7 Q( S/ q% L2 y: D        If Not IsNull(ipconfig.IPAddress) Then
7 X  s/ T4 h# b            myIp = Join(ipconfig.IPAddress)
) U# `) Q$ A& ^* S        End If
8 Z5 B6 T, o% e) F3 ~9 }4 z        
; y. H* ~8 @5 Z7 u, Y1 W6 Q        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
     End If
, I# G. p; \; _  P0 C5 B        
    Next
  t/ f$ u# i& }, ]/ ^2 U( C' Y7 [End Sub