MyTetra Share
Делитесь знаниями!
Остановка макроса
31.07.2019
22:37
Текстовые метки: Остановка макросаCtrl+Break, EnableCancelKey, xlDisabled
Раздел: !Закладки - VBA

Dim nextTime

 

Sub Макрос1()

'...

nextTime = Now + #12:10:00 AM#

Application.OnTime nextTime, "Макрос1"

End Sub

 

Sub StopМакрос1()

On Error Resume Next

Application.OnTime nextTime, "Макрос1", , False

End Sub



А чтобы Ctrl+Break не помогал, можете воспользоваться командой
Application.EnableCancelKey = xlDisabled

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования