Остановка макроса из UserForm[vbModeless]

Честно скажу, что готового рецепта у меня нет.
Но есть две мысли.
1. Поэкспериментируй с DoEvents. Эта штука меня часто выручала.
2. Может, отлавливать нажатия мышки через API функции?

Прикольно. Спасибо за совет - DoEvents - заработал!!!

Я его понаставлял в разные куски макроса, как раз где у меня FormWait.Repaint обновляется (чтобы значение ProgressBar увеличить и текст того чем он щас занимается обновить).
А работает он следующим образом, когда нажимаешь на кнопку "Прервать", то событие до нее дойдет, как только в макросе повстречает DoEvents. (когда промежуток между соседними DoEvents большой, то получается так - на кнопку жмешь,...... ничего не происходит, кнопка не шевелится, потом через 5-10 сек раз и полезло то, что на кнопке висело..) Весело вообщем.

А для того, чтобы после нажатие кнопки "Прервать" выполнение макроса прекратить, я лучше ничего не нашел, как сделать это так:

Private Sub ButCancel_Click()
Dim Response
Response = MsgBox("Вы точно хотите прервать работу макроса?", vbQuestion + vbOKOnly + vbOKCancel, "Внимание!")
If Response = 1 Then
Unload FormWait
MyModule.blnBreak = True
Else
End If
End Sub

А в макросе, после каждого DoEvents сделать проверку, что-нибудт типа такого:
If blnBreak Then Exit Sub

Может что поизящнее есть, чтобы из кода формы прекратить (не остановить, а прекратить) выполнение текущего макроса....?

Рад, что получилось средствами Экселя и не пришлось посылать за тяжелой артиллерией... :)

Чтобы остановить - попробуй End

Кстати, в твоем способе нет ничего неизящного. Так что не стесняйся... :D

Ок, спасибо.

Просто я хотел свой код, относящийся к форме, максимально, как это сказать-то ..... инкапсулировать. Т.е. есть форма (один файл), включил ее в проект, перенес на другой комп, переслал другому человеку, и не надо потом долго объяснять за какие переменные там дергать, за чем следить, че проверять и вызывать.
А делать с этой формой особенного ничего и не надо, показал/скрыл ее, значения на ProgressBar обновил (ну и на подписях).
Для последнего я включил в модуль формы такую функцию:

Public Sub ShowFormWait(progValue As Double, textProc As String, TextFile As String)

If textProc <> "" Then
FormWait.LabText.Caption = textProc
Image1.Visible = True
Else
FormWait.LabText.Caption = ""
Image1.Visible = False
End If
If TextFile <> "" Then
FormWait.LabFile.Caption = TextFile
Image2.Visible = True
Else
FormWait.LabFile.Caption = ""
Image2.Visible = False
End If

' обновляем форму и значение ProgressBar1
FormWait.ProgressBar1.Value = progValue
FormWait.Repaint
DoEvents
End Sub

Даешь процедуру пользователю и пусть работает и не очень не думает, а теперь ему еще после каждого вызова проверять надо FormWait.blnBreak=True - не нажата ли была клавиша.
Правда можно из процедуры сделать функцию, чтобы она возращала нажатие клавиши, тогда пользов. уже не забудет проверить... :-)

Ну да. Делаешь как-нибудь так:



включаешь эту штуку в модуль формы, и везде вставляешь

:)

Кстати, мне очень понравилась твоя функция для создания "паузы": http://www.codenet.ru/progr/vbasic/vbloop.php - ее можно использовать для кнопки "Пауза/Продолжить"