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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
# J. D5 y. K+ e+ j3 f4 k      172.36.254.22 ；
      2010-03-02 ；
      D:\book1.xls。
8 k" {1 }& R& K4 g' X) l3 m请问该如何来实现呢？请各位高手帮忙解决一下
7 k6 u9 ~9 v/ e6 C7 V谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
8 R7 ^3 T. L2 i3 a7 a: e7 F制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
0 X' J( p$ ~6 ]( B& g
    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
4 N5 V. ]3 f6 G2 ?3 i9 {* {2 z   
: e' s, p0 V  Q$ O    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
! A# N( W6 B4 C) p    Set sysInfm = CreateObject("WScript.Network")
   
+ g) @1 u) g2 ]- z# {    pcName = sysInfm.computername  '获取本机计算机名
3 J  N7 T  H' [0 O* q; _, S4 V' o    userName = sysInfm.userName    '获取本机已登录的用户名
   
) E" I. f, s0 B; `" l    '获取本机ip地址
    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
% W- X# G2 z% h( N7 X        End If
2 i0 I4 K5 ]- A        
( c/ {; [% N! M' k        If myIp <> "0.0.0.0" Then
2 H8 Q. y, D7 C) W* p9 z3 z            MsgBox "IP Address: " & myI
0 A: K& `/ L* K4 h/ ^     End If
1 s: k# d  r( E- ?* E        
% G6 N9 V5 n3 a/ }# m+ C    Next
End Sub