Muốn ngưng và thoát code đang chạy.

[AnhThu-1976]

Em chào các anh/chị!
Khi em muốn ngưng code đang chay
Thì em bấm Ctrl + Pause Break hoặc Esc thì nó dừng lại và đưa ra bảng thông báo

và em bấm tiếp nút End thì nó dừng hoàn toàn
Các động tác trên thì không thể Record Macro được
Vì vậy các anh /chị có thể viết giúp em Code thoát như trên
Em cảm ơn!
Ví dụ: code đang chạy tên là AAA và trong code này có nhiều thông báo = MsgBox
Em muốn thoát code đang chạy để chạy code khác

 

[VetMini]

Nếu bạn đặt
On Error GoTo err_handler
Application.EnableCancelKey = xlErrorHandler
Thì khi chạy, bấm Esc sẽ gây lỗi Runtime Error 18

err_Handler:
If err.Number = 18 Then
' code nhảy ra khỏi sub, hay làm gì đó ở đây
End If

 

[AnhThu-1976]

Nếu bạn đặt
On Error GoTo err_handler
Application.EnableCancelKey = xlErrorHandler
Thì khi chạy, bấm Esc sẽ gây lỗi Runtime Error 18

err_Handler:
If err.Number = 18 Then
' code nhảy ra khỏi sub, hay làm gì đó ở đây
End If

Em mò mẫn để viết các câu lệnh và ráp cho hoàn chỉnh nhưng chưa được, các anh chị giúp em
cụ thể:
Sub Ngungchay ()
1/ bấm phím Esc
2/ Thoát khỏi thông báo
3/ ngưng code đang chạy
End Sub