Зацикливание открытия, после закрытия

[GWolf]

Добрый день, друзья!

На скрепке проект. И все бы ничего, но после завершения диалога запроса ФИО подотчетника по Cancel или красному крестику, происходит повторный запуск программы. А мне нужно просто завершение!
Где то чего то недовыгружается! Но вот где?
Помогите пожалуйста. Всем откликнувшимся заранее большое спасибо!

P.S. Можно конечно сделать UserForm и там никаких Cancel не создавать, а красный крестик закрыть! Но, хотелось бы понять причину такого поведения именно в данной реализации.

[Watcher_1]

Если принудительно не закрывать первое ваше окно с сообщением кто написал этот макрос и дождаться когда сработает таймер то при нажатии Cancel или крестика все прекрасно закрывается и повторно не активируется

[Hugo121]

Что-то вроде

Dim tt

Private Sub UserForm_Activate()

    tt = Now + TimeValue("00:00:05")
    Application.OnTime tt, "KillTheForm"

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    On Error Resume Next
    Application.OnTime EarliestTime:=tt, _
                       Procedure:="KillTheForm", Schedule:=False
End Sub

[GWolf]

Сообщение от Hugo121

Что-то вроде ...

Сердечное спасибо Вам! Всем, кто откликнулся! Приведенный пример кода уважаемым Hugo121 решил мою проблему!
Не сочтите за наглость, но, если это возможно: прокоментируйте пожалуйста Ваш код. А то я что то туплю или мои лыжи не едут!
Я конечно использовал Ваш код, но хотелось бы понять на будущее ...
Если Вас не затруднит.

[Hugo121]

Там просто
Есть публичная переменная, в которую заносится время запуска кода закрытия формы, по которому оное запускается.
При закрытии формы раньше по этой переменной этот Application.OnTime отменяется.

[GWolf]

Сообщение от Hugo121

Там просто
Есть публичная переменная, в которую заносится время запуска кода закрытия формы, по которому оное запускается.
При закрытии формы раньше по этой переменной этот Application.OnTime отменяется.

Добрый день!
Значит, если я правильно понял, то весь канкан с перезакрытием у меня возникал из-за неотмены OnTime!
Век живи - век учись! Еще раз СПАСИБО!

[Hugo121]

Ну да.
Экселю дано задание в определённое время запустить макрос файла - он это и делает.
Если успеть закрыть Эксель - то тогда переоткрытия не будет. Но если Эксель работает - то он делает что сказали.
Ну а что там в этом макросе - это другой вопрос.