如何覆盖锁定进行编辑？

Question

我在共享驱动器上有一个xlsx文件。问题是，有时我需要修改它，但发现其他人正在使用它，并且它被锁定以进行编辑＆＃39; 。我怎样才能摆脱这个locked for editing的东西？

PS：我不想在上面设置密码。

Answer 1

您可以通过以下代码了解锁定的存在。有一些名为FreeFile()的东西，您需要使用它来捕获一些错误代码

基本上这就是你做的......

On Error Resume Next
Dim Check as Integer, ErrorNumber as Integer
Check = FreeFile()

Open FileNameString For Input Lock ReadAs #Check
Close Check
ErrorNumber = Err

现在如果没有错误，ErrorNumber会说0，如果它打开，ErrorNumber会说70

有关详细信息，请参阅MS知识库文章：http://support.microsoft.com/kb/291295