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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
      2010-03-02 ；
2 _5 L& c: W" J; K5 m9 @* N      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
( j( c& h$ k1 D$ f0 ^7 x2 H
    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
1 h( z0 c1 w5 ?) ?5 o: ~8 k   
/ A4 v# w& N/ P/ u- S    Set objWMIService = GetObject("winmgmts:")
2 ?  g+ W. }6 E    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    Set sysInfm = CreateObject("WScript.Network")
' S9 c* D4 y# T( r9 @; F, C; J9 @   
* I( T; }5 Q) e# o    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
' i% w6 b8 \/ v    '获取本机ip地址
    For Each ipconfig In IPConfigSet
   
" s2 j; A+ i; ]! f( a3 M        If Not IsNull(ipconfig.IPAddress) Then
; ?9 F' @' B/ k/ w( d% K3 ^1 P2 B            myIp = Join(ipconfig.IPAddress)
        End If
        
        If myIp <> "0.0.0.0" Then
; \0 t5 c4 N% [7 j5 |5 H            MsgBox "IP Address: " & myI
0 H1 ]' g1 k8 Z- O% I     End If
% Q# I% Q( l6 Q& `        
/ D4 n3 _; X$ h6 ?; {& i: ~- X+ v    Next
& r, N7 J5 k2 ?0 Y2 NEnd Sub

kensington

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