Сохранить и закрыть макрос с MSG перестал работать - PullRequest
Новая
       45

Сохранить и закрыть макрос с MSG перестал работать

0 голосов
/ 13 января 2020

У меня есть макрос, который отлично работал в течение года, но я недавно скопировал рабочую книгу и макросы в нее, и теперь он, похоже, не читает NUM_MINUTES, а просто выбрасывает книгу сообщений случайным образом. Он также выдает его только один раз, но несколько раз, даже если я не нажимаю кнопку ОК

Код ниже : 

Public RunWhen As Double
Public Const NUM_MINUTES = 10

Public Sub SaveAndClose()
    MsgBox "Enquiry register Idle for 10 Minutes" & vbCr & "Please Save and Close Now"

    'Reset next idle message'
    RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0)
    Application.OnTime RunWhen, "SaveAndClose", , True
End Sub
...