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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
/ a. L, b. A( K      172.36.254.22 ；
      2010-03-02 ；
      D:\book1.xls。
0 R  H% m. C6 C- b请问该如何来实现呢？请各位高手帮忙解决一下
& Z$ f; _5 Q6 F8 x8 A! c  W$ R7 @6 w谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
$ z5 D. `5 @& X8 y4 Z$ [) m( d制作环境为office2003
- f6 J) u9 |: DPublic Sub getIpAndPcnameAndUsername()

    Dim myIp, pcName, userName As String
    Dim objWMIService, IPConfigSet, sysInfm As Object
& A9 H# E5 k% X6 k8 r  H   
$ N% G" I, C/ @5 a) q    Set objWMIService = GetObject("winmgmts:")
  A5 |% _! R9 Z  H# M    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
8 G" {) c. ^& _2 o    Set sysInfm = CreateObject("WScript.Network")
   
1 o; k6 n; g6 N3 J+ d2 S3 |    pcName = sysInfm.computername  '获取本机计算机名
5 U" u" J. U5 v( C, x    userName = sysInfm.userName    '获取本机已登录的用户名
% V, }8 L" T" P, o) m0 Z7 j( t   
    '获取本机ip地址
    For Each ipconfig In IPConfigSet
0 q: n+ w; p8 A! j, p2 ~   
        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
: s( w2 W# p3 k; R( T- V& C        End If
        
        If myIp <> "0.0.0.0" Then
& C( A6 I5 X/ T* d& |8 b7 P9 }3 L            MsgBox "IP Address: " & myI
     End If
8 h7 t  X) p: {. F        
8 a; A5 k( k3 k& U+ z    Next
End Sub