Приложение onTime не работает после обновления Excel

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 и работает вовремя.

Попробуйте выполнить новую процедуру и назовите ее:

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

Sub Macro1()

' Macro1 Macro

MsgBox "Hello"
End Sub