☰

如何在 Excel 2010 中空闲一段时间后保存并关闭 Excel 电子表格

tag-icon • tag-icon microsoft-excel-2010
如何在 Excel 2010 中空闲一段时间后保存并关闭 Excel 电子表格

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

答案1

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

无论如何，请尝试使用“共享工作簿”功能作为主要解决方案。如果您已经尝试过共享工作簿但无法满足您的需求，请继续阅读。

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

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

想象一下这样的场景：用户意外删除了大量数据，然后坐在那里，不知道该怎么办，什么时候承认。现在我们都知道，您可以简单地关闭工作簿而不保存更改，这样我们就摆脱了麻烦，但考虑到此代码执行的下一步，您现在将度过非常糟糕的一天。也就是说，试试这个：-

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

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

相关内容