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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
- U% Z- w; N- Q7 l) m/ G+ t1 F      2010-03-02 ；
      D:\book1.xls。
; h; R' T% r" p/ v请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
, G" b8 l* \. p2 f; vPublic Sub getIpAndPcnameAndUsername()

    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
   
. D. h8 Y9 C' }9 W- p1 v    Set objWMIService = GetObject("winmgmts:")
: N5 _+ n+ v) l7 M! \    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
0 N% X! P9 l7 D    Set sysInfm = CreateObject("WScript.Network")
   
    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
8 U1 o9 V0 q3 B3 ^3 T3 e    '获取本机ip地址
! z5 q3 @5 F& x    For Each ipconfig In IPConfigSet
   
        If Not IsNull(ipconfig.IPAddress) Then
0 h: ?5 n% o  e- e0 p            myIp = Join(ipconfig.IPAddress)
        End If
8 T; b  {9 Z5 N! R! ~& ^        
3 M8 V9 l. T, X        If myIp <> "0.0.0.0" Then
            MsgBox "IP Address: " & myI
: F' v& h8 n8 S* n2 m/ D/ O     End If
        
  h/ C( J1 E, {    Next
End Sub