每天取消共享工作簿

Question

我想在每天晚上11点取消共享excel工作簿。 首先，我使用Windows任务计划程序在晚上10:59:45打开文件，然后运行以下代码。 以下代码是否有效？

Sub Unshare()

Application.DisplayAlerts = False
If ThisWorkbook.MultiUserEditing Then

ThisWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
ThisWorkbook.Close

Else
Application.DisplayAlerts = True
ThisWorkbook.Close

End Sub


Sub Workbook Open()

Application.OnTime TimeValue("23:00:00"), "Unshare"

End Sub

此外，所有代码都位于Thisworkbook中。

谢谢！

Answer 1

尝试在Workbook对象的私有模块中使用Workbook_Open事件。

div.whatever {
position:absolute;
overflow:hidden;
}