Как написать макрос который закроет открытое диалоговое окно в Excel

Question

Наталия · Accepted Answer

Типовой пример функции для закрытия пользовательской формы, взят с интернет: 
Public Function Close_Form(strForm as Form) 
 DoCmd.Close AcForm, strForm 
End Function

Elvisa Suleymanova · Answer

Visual BasicВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DIM FLAG AS BOOLEAN
 
PRIVATE SUB КНОПКА_СТОП_CLICK
FLAG =NOT FLAG 
END SUB
 
sub call_something'ОЧЕНЬ ДЛИННАЯ ПРОЦЕДУРА
 or each ...'ОЧЕНЬ ДЛИННЫЙ цикл
 
 'Ваш длинный код
 
 DOEVENTS
 IF FLAG THEN EXIT SUB
 next
 end sub