更新excel后应用程序onTime不工作

Question

我最近更新了excel 2010到excel 2016，由于一些未知的原因，应用程序不能按时工作。

Private Sub Workbook_Open()
    WS_Count = ThisWorkbook.Worksheets.Count
    For o = 1 To WS_Count
        ThisWorkbook.Worksheets(o).Unprotect password:="leicaoee"
    Next o
    Application.Visible = True
    interfaceform.Show
    'monitorform1.Show

    Application.OnTime TimeValue("09:30:00"), "Save1" '1º Turno 1º Intervalo Inicio
    Application.OnTime TimeValue("10:00:00"), "Save2" '1º Turno 1º Intervalo Fim
    Application.OnTime TimeValue("10:00:10"), "Save21" ' 1º Turno 2º Intervalo Inicio
    Application.OnTime TimeValue("10:30:00"), "Save3" '1º Turno 2º Intervalo Fim


    Application.OnTime TimeValue("18:00:00"), "Save4" '2º Turno 1º Intervalo Inicio
    Application.OnTime TimeValue("18:30:00"), "Save5" '2º Turno 1º Intervalo Fim
    Application.OnTime TimeValue("18:30:10"), "Save51" '2º 2º Turno 2º Intervalo Inicio
    Application.OnTime TimeValue("19:00:00"), "Save6" '2º Turno 2º Intervalo Fim


    Application.OnTime TimeValue("02:00:00"), "Save7" '3º Turno 1º Intervalo INICIO
    Application.OnTime TimeValue("02:30:00"), "Save8" '3º Turno 1º Intervalo Fim
    Application.OnTime TimeValue("02:30:00"), "Save81" '3º3º Turno 2º Intervalo Inicio
    Application.OnTime TimeValue("03:00:00"), "Save9" '3º Turno 2º Intervalo Fim

    Application.OnTime TimeValue("14:15:00"), "Save10" 'Fim 1º Turno
    Application.OnTime TimeValue("22:15:00"), "Save11" 'Fim 2º Turno
    Application.OnTime TimeValue("06:15:00"), "Save12" 'Fim 3º Turno
End Sub

在更新excel之前，这个功能运行得很好，但是在更新之后，它就不再工作了，我不认为问题出在打开工作簿的时候，而是在一些excel选项上。

我已经更改了运行宏的选项，等等。

Answer 1

我有excel 2016和ontime工作正常。

尝试执行一个新的过程并调用它：

Private Sub CommandButton1_Click()
Application.OnTime TimeValue("13:50:00"), "Macro1" 
end sub

Sub Macro1()

' Macro1 Macro

MsgBox "Hello"
End Sub