windows - 当 Windows 7 计算机被锁定时，VBA 关闭 excel 文件

Question

我在 6/7 人使用的共享驱动器上有一个 excel 文件，但一次只能有一个人编辑。当一个人打开文件进行编辑然后消失一个小时吃午饭，让 excel 文件保持打开状态并且其他用户无法编辑时，挫败感就来了。

VBA 是否可以监听站何时被锁定，并相应地激活宏？

抱歉，我没有发布任何我自己的尝试，因为我对这种级别的 VBA 有点摸不着头脑。

任何可以帮助我入门的要点都非常有用。

Answer 1

您有几个选择:

1. 杀死做这件事的同事
2. 让其他用户创建一个副本并另存为，然后合并后者(非常 hacky)
3. 或者您尝试超时 - 因此，如果用户在 10 分钟内没有选择任何内容，工作簿将关闭。我认为选择锁定会是一个安全问题，Windows 不会让您拥有那种权力。

因此，为了超时，每十分钟调用一个函数来检查用户是否选择了工作簿中的任何其他单元格。

If difference("n", lastaction , Now) > 10 Then
    ThisWorkbook.Close SaveChanges:=True
End If

您可以在 vba 中使用 NOW 函数来查找当前日期和时间，以及与执行操作时的计算差异，以查找“lastaction”的值。为此，请使用:

Sub AnAction(ByVal Sh As Object, ByVal Target As Range)
    lastaction = now
End Sub

希望这能回答您的问题。