如何以独占方式打开excel文件

tntzjl

我有一excel文件放在服务器上，每个同事都有可能去打开查看或编辑，当同时有两个或以上的人打开时，可能会把编辑内容互相覆盖掉。那么如何实现，当有人打开时，第2个人去打开该excel表时，直接给出提示，已经有人打开，然后关闭或退出。即同一时刻，只能有一个人打开使用。(如果能用函数实现更好，VBA也可以)请高手帮忙！谢谢

[ 本帖最后由 tntzjl 于 2009-3-28 16:27 编辑 ]

jackeroo

原帖由 tntzjl 于 2009-3-28 16:24 发表
我有一excel文件放在服务器上，每个同事都有可能去打开查看或编辑，当同时有两个或以上的人打开时，可能会把编辑内容互相覆盖掉。那么如何实现，当有人打开时，第2个人去打开该excel表时，直接给出提示，已经有人打开 ...

我们没有服务器。呵呵。没用过。

fdd

一个文件能同时被两台电脑编辑吗？

tntzjl

可以被两台电脑同时打开的，所以请求高手解决一下

rootfool

excel本身就已经是这样了啊。。。当有人已经打开时，另外再有人打开文件，就会有提示说此文件正在被“×××”编辑，只能以只读方式打开。

ychh_wy

再想一想,了解一下

tntzjl

我的文件是放在SharePoint Portal Server 平台上的，所以当有一个人打开时，另外一个人也是可以打开的。取消共享也没有用的。
我自己看了别人的代码如下，有点类似我的需求了。
Private Sub Workbook_Open()
If Date > "2002-12-31" Then
MsgBox "系统日期已超过2002年12月31日"
ThisWorkbook.Close
End If
End Sub
我自己想要的结果是：
当点击服务器上该excel文件链接，会出现一个下拉框，让打开者选择自己的名字（如：张三），然后进入文件进行编辑。
在没有关闭该文件之前，如果有其他人试图点击该excel文件链接打开时，可通过VBA代码检测，已经有人正在打开使用，
并显示正在被谁打开使用（该值就取下拉框里选择的名字：张三）。
可请高手帮我实现这段VBA代码，谢谢

tntzjl

哪位高手帮我解决一下，谢谢！

rootfool

一个思路：进入时建一个txt，里面写上这个使用者的名字，有人再用时检查txt是否存在，存在的话就读出里面的名字进行显示，寻出文档时把那个txt文件删掉。。。。

uptou

楼主的问题我也遇见过，思考了这么久，应该是无解，原因在于你用的应该是ftp服务器吧，因为ftp服务器提供的是一个储存空间，只有上传和下载功能，你打开或编辑对服务器而言是一个下载到你的计算机临时空间后在打开的过程，你保存的时候是一个上传覆盖的过程，二者并不冲突，所以无解！不知道我的理解是不是对的？