QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 6523|回复: 2
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大
数学者 实名认证       

170

主题

10

听众

3232

积分

该用户从未签到

新人进步奖 发帖功臣 最具活力勋章

跳转到指定楼层
1#
发表于 2010-3-5 11:55 |只看该作者 |倒序浏览
|招呼Ta 关注Ta |邮箱已经成功绑定
利用VB或VBA记录(获取)哪些用户曾经打开过某excel文档,如:ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”,现在要记录以下三个信息:. n1 r' j- m! @7 x0 X
      172.36.254.22 ; 0 D% a; D7 P) v% Z1 g
      2010-03-02 ;
& x6 s* l# k2 v0 ^: c8 h      D:\book1.xls。
3 C! c$ z: `, }/ S4 a$ \请问该如何来实现呢?请各位高手帮忙解决一下
4 P6 p- |; Y' M0 ?: m; R谢谢~~
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
挽弓当挽强,用箭当用长!

30

主题

3

听众

2324

积分

升级  10.8%

  • TA的每日心情
    奋斗
    2023-6-21 14:13
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    自我介绍
    200 字节以内<br />
    不支持自定义 Discuz! 代码

    邮箱绑定达人 新人进步奖 元老勋章 原创写作奖

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

    使用道具 举报

    数学者 实名认证       

    170

    主题

    10

    听众

    3232

    积分

    该用户从未签到

    新人进步奖 发帖功臣 最具活力勋章

    搞定它了,呵呵~
    6 Z7 H7 P6 j; C3 S/ R7 k代码也弄出来,在Excel的VB编辑器里执行
    / S% Z3 ~4 z4 w8 }+ }& I# c# W/ ~) E制作环境为office2003
    6 t4 M) e7 g! c! b. n  jPublic Sub getIpAndPcnameAndUsername()9 `1 B( t6 d* M

    : k/ t0 {! p4 t# ^: V9 e0 D    Dim myIp, pcName, userName As String' J" s# U! c* g* j
        Dim objWMIService, IPConfigSet, sysInfm As Object
    / v* b8 n. E( b4 ~    0 R3 a; B+ s7 p( w0 ^) R# h- k
        Set objWMIService = GetObject("winmgmts:")- N% H1 e! `7 _& v$ Y& p! j
        Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")) I; a: E; L: E
        Set sysInfm = CreateObject("WScript.Network"): K$ y1 X8 [2 J6 ?
       
    ( d% T: d$ w0 E, V" E$ d: J    pcName = sysInfm.computername  '获取本机计算机名' T, v4 O; Y( ~/ S  N
        userName = sysInfm.userName    '获取本机已登录的用户名
    0 J8 |( b& T: w# h. G" e* G   
    ' j; z# Z; {2 F' s( d5 g  F/ e4 s    '获取本机ip地址
    " v, d! b/ b% v  g( M* E# m    For Each ipconfig In IPConfigSet  m, X8 m- X- c$ u
       
    , D/ B- m4 S. s8 M9 @8 a' M/ A        If Not IsNull(ipconfig.IPAddress) Then
    8 w$ k; A8 M8 \7 U$ x- t( d            myIp = Join(ipconfig.IPAddress)! w0 c' A. y) B1 v- c5 S
            End If
    5 f4 T3 m! d7 @        
    ' r& {: V. X" Q, a( O        If myIp <> "0.0.0.0" Then1 v8 j$ T8 ]' c  I4 e
                MsgBox "IP Address: " & myI5 a" N( e' X" P2 F
         End If
    : W% h3 m2 l. N  B" T  B  u        , W9 K8 ^, L0 A  ]# W1 n9 A
        Next
    0 o7 Z- w% O& d) \& bEnd Sub
    挽弓当挽强,用箭当用长!
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-4-14 13:15 , Processed in 0.434945 second(s), 60 queries .

    回顶部