Заставка при закрытии Excel…

[Rom]

Нужно показать заставку при выходе из программы, пока происходит сохранение данных. Думал сделать это примерно так:

Код: Выделить всё

…
UserForm14.Show
UserForm14.Label1.Caption = "Сохранение данных . . ."
…
…
ActiveWorkbook.Save
UserForm14.Hide
Application.Quit

Но на строчке UserForm14.Show выполнение останавливается. И пока форму не закроешь, выполнение кода дальше не идёт.

Как можно обойти эту проблему, т.е. показать форму и продолжить выполнение кода? (на FoxPro была команда Nowait)
Или может в данном случае стоит использовать какой-то другой подход?

[GSerg]

Диалоги экселя модальные.
В 97 точно

Сделай так: проверь установлен ли Assistant. Если установлен, заставь его показать балун с мессагой. Если нет, выведи текст в статусбаре.

[Rom]

Пытаюсь сделать это через помощника. Код такой:

Код: Выделить всё

Dim myassis As Assistant
Set myassis = Assistant
Set newballoon = myassis.newballoon
Dim num As Integer
newballoon.Heading = "Завершение работы программы"
newballoon.Text = "Сохранение данных..."
num = newballoon.Show
…
…
newballoon.Text = "Завершение работы..."
num = newballoon.Show
Application.Quit

Но всё равно на строчке num = newballoon.Show выполнение останавливается, и пока не нажмешь OK, выполнение кода дальше не идёт.

Может как-то сделать, чтобы месага не “тормозила” выполнение кода?
Или я как-то не так её показываю?

[GSerg]

А помести завершающий код в форму-заставку

[Rom]

То есть

[GSerg]

Ну, все те действия, которые надо выполнить при висящей форме, помести в саму эту форму

[Ig]

2 Rom
посмотрите здесь
там правда про заставку в Ворде и при открытии, но ничто не мешает заменить Document_Open на Workbook_Close

[Rom]

Спасибо за линк