Можеш прекъснете макроса в Excel по всяко време, като натиснете Esc или Ctrl + Break.
Поставете команден бутон на работния си лист и добавете следните кодови редове:
Dim x As Long
x = 5
Направете Докато x> 2
x = x + 1
Цикъл
1. Щракнете върху командния бутон на листа. Този макрос никога не спира, защото частта след „Do While“ винаги ще бъде вярна (x винаги ще бъде по -висока от 2).
2. За да спрете този безкраен цикъл, натиснете Esc или Ctrl + Break. Ще се появи следният диалогов прозорец:
3. Щракнете върху Край, за да прекратите макроса, щракнете върху Отстраняване на грешки, за да разгледате макроса в редактора на Visual Basic.
4. Добавете следния код в началото на кода, ако не искате потребителите на вашата програма да могат да прекъсват макроса ви (не се препоръчва).
Application.EnableCancelKey = xlDisabled
5. Въпреки че Excel VBA нулира автоматично свойството EnableCancelKey на xlInterrupt в края на вашия макрос, добра практика (при използване на предишния кодов ред) е да завършите макроса си със следния код:
Application.EnableCancelKey = xlInterrupt
Забележка: ако Excel замръзне и вече не можете да прекъснете макроса, натиснете Ctrl + Alt + Delete и затворете Excel.
