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

数学者

利用VB或VBA记录（获取）哪些用户曾经打开过某excel文档，如：ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”，现在要记录以下三个信息：
      172.36.254.22 ；
      2010-03-02 ；
3 v. }% K# f5 u  N! o. a' F1 @      D:\book1.xls。
请问该如何来实现呢？请各位高手帮忙解决一下
谢谢~~

kensington

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

数学者

搞定它了，呵呵~
代码也弄出来，在Excel的VB编辑器里执行
制作环境为office2003
Public Sub getIpAndPcnameAndUsername()
2 t+ n7 t! V9 p6 T2 _- M
1 Y& J( I# n  e' t4 Y, ?    Dim myIp, pcName, userName As String
" o: J" x* m" m# s$ B6 R+ g    Dim objWMIService, IPConfigSet, sysInfm As Object
# X4 b  n1 R# [3 ]# G2 ~( z   
/ j$ ~: O3 f% w  J9 u; G    Set objWMIService = GetObject("winmgmts:")
    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
  d4 x4 }4 T7 g2 f  p: o    Set sysInfm = CreateObject("WScript.Network")
- a; _) r7 u5 |0 i) S" h( c" b   
" K, ^" Y* `! q+ {. A    pcName = sysInfm.computername  '获取本机计算机名
    userName = sysInfm.userName    '获取本机已登录的用户名
   
    '获取本机ip地址
    For Each ipconfig In IPConfigSet
   
3 k8 o5 N" }# n, ?2 z$ M        If Not IsNull(ipconfig.IPAddress) Then
            myIp = Join(ipconfig.IPAddress)
: n* j3 i  R+ t8 R- v7 E        End If
$ [' X+ ]6 T0 W. R0 t        
        If myIp <> "0.0.0.0" Then
4 m9 i+ V/ [/ M! O            MsgBox "IP Address: " & myI
2 j2 M) G; d& l$ k5 J* G8 K8 Z     End If
        
) h3 F6 x6 a) _7 ~1 k% K$ i    Next
End Sub