如何在 Excel 2010 空闲时间后保存和关闭 Excel 电子表格

Question

我有 Excel 2010。我遇到过这样的情况：人们下班后将 Excel 工作簿留在共享文件服务器上以独占方式打开；因此，其他用户无法编辑工作簿。我该如何缓解这个问题？

Answer 1

针对您的问题的推荐解决方案是允许多个用户同时编辑 Excel 电子表格。有关详细信息，请参阅Excel 帮助中的关于共享工作簿。这种方法的关键是转到 Excel 功能区中的“审阅”选项卡，然后单击“更改”部分下的“共享工作簿”按钮。

无论如何，尝试使用“共享工作簿”功能作为主要解决方案。只有在您已经尝试过共享工作簿并且无法满足您的需求时才进一步阅读。

如果由于某种原因这在您的情况下不起作用（某些工作簿功能与共享工作簿不兼容），请尝试以下VBA 解决方案：

恕我直言，出于保护您的数据的原因，这是最不明智的做法。

想象一下这样一个场景：用户不小心删除了大量数据，并双手捧着坐在那里想知道该怎么做以及什么时候坦白。现在我们都知道您可以简单地关闭工作簿而不保存更改，我们已经摆脱了麻烦，但是在考虑下一步执行此代码时，您现在将度过非常糟糕的一天。这就是说试试这个：-

ALT+F11 打开 VB 编辑器。双击“ThisWorkbook”并将前两个模块粘贴到右侧。

Private Sub Workbook_Open()
    StartTimer
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    StartTimer
End Sub

现在右键单击“ThisWorkbook”插入模块并粘贴此代码。保存关闭并重新打开工作簿，闲置 15 分钟后它将自动保存并关闭。

Const idleTime = 900 'seconds
Dim Start
Sub StartTimer()
    Start = Timer
    Do While Timer < Start + idleTime
        DoEvents
    Loop
    Application.DisplayAlerts = False
    ActiveWorkbook.Close SaveChanges:=True
    Application.DisplayAlerts = True
End Sub