任务计划程序和工作簿打开宏

Question

我有一个代码可以根据打开的时间执行不同的操作。 我正在使用任务计划程序打开该文件。代码在第二个elseif运行之前运行该部件没有问题。 但是，从任务计划程序打开文件时，第二个elseif将不会运行。

Sub workbook_open()

Dim time_now As String

time_now = Format(Now, "hh:mm:ss")

If time_now > "00:05:00" And time_now < "00:05:30" And ThisWorkbook.MultiUserEditing Then
    Application.DisplayAlerts = False
    ThisWorkbook.ExclusiveAccess
    Application.DisplayAlerts = True
    Application.Calculation = xlCalculationAutomatic
    ThisWorkbook.Save
    Application.Quit
ElseIf time_now > "00:05:00" And time_now < "00:05:30" And ThisWorkbook.MultiUserEditing = False Then
Application.Quit
ElseIf time_now > "00:10:00" And time_now < "00:11:00" Then
    Application.DisplayAlerts = False
    Call Sheet2.Update
    If Not ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessmode:=xlShared
End If
    Application.DisplayAlerts = True
    ThisWorkbook.Save
    Application.Quit
Else

End If

End Sub

如果我用F8手动运行代码，则没有问题。另外sheet2.update没问题。

不太确定为什么有人可以指点。 谢谢！

Answer 1

我相信您的宏信任设置阻止了任务调度程序打开文件时的情况。