设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1747|回复: 5
打印 上一主题 下一主题

[与其它组件] [求助]如何知道主機的一個文件的連接用戶

[复制链接]
跳转到指定楼层
1#
发表于 2004-12-8 22:04:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
是這樣的,我將一Excel文檔放在NT4.0的主機上,供一部分同事們拷用,有了更新版,用新文件覆蓋原文件后,再通知同事重新拷貝即可.可有些同事為了方便,直接用建立捷徑的方法從主機上打開文件(其曰可免除更新之煩).

可我想更新時,確因文件正在使用中(”提示,文件已被"xyz"鎖定....”),只能唯讀打開,更無法覆蓋.

請問,有什麼辦法可知道目前哪臺電腦正在使用它?

謝謝!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2004-12-9 17:19:00 | 只看该作者
将此段代码COPY到你的XLS文件VBA界面里去,用户打开文件时会自动生成一个TEST.TXT的LOG文件,记录打开时间,用户名,电脑名。也可以把TEST.TXT改成TEST.DAT,以欺骗普通用户。写的DAT文件,用记录本方式打开就可以直接看到。Private Sub Workbook_Open()

Dim FN As String

Dim ITF As Integer

Dim Str As String

Str = "User:" & Environ("UserName") & "  Computer:" & Environ("COMPUTERNAME") & "  Open Time:" & Now

FN = Application.Workbooks(ThisWorkbook.Name).Path & "\Test.txt"

ITF = FreeFile

Open FN For Append As #ITF

Write #ITF, Str

Close #ITF

End Sub
3#
 楼主| 发表于 2004-12-9 23:06:00 | 只看该作者
謝謝方漠兄不知有沒有其它更為簡便的方法,因為可能這個文檔不是我做的,並不是每個人都會用VBA的.多謝各位.
4#
发表于 2004-12-10 00:05:00 | 只看该作者
有个WHOHASIT的软件, 可以查到谁在用[em05]



[此贴子已经被作者于2004-12-9 16:09:43编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
5#
发表于 2004-12-10 01:12:00 | 只看该作者
nt系统中有一个功能是可以看到谁在用文件的,我手头没有nt无法具体的说,您自己找找或看帮助。
6#
 楼主| 发表于 2004-12-10 21:57:00 | 只看该作者
多謝各位的指點![em17][em17][em17][em17]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-29 21:32 , Processed in 0.112228 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表