Excel VBA活用范例实用手册(畅销升级版)
上QQ阅读APP看书,第一时间看更新

032 使取消键无效

EnableCancelKey属性

使取消键(【Esc】等键)无效,可以防止用户通过按【Ctrl+Break】组合键或【Esc】键的方式强行中断宏的运行。但需要注意的是,当设置取消键无效后,会无法从无穷循环中退出。

使取消键无效的方法是设置Application对象的EnableCancelKey属性,该属性值有以下3种情况:

◆xlDisabled:完全禁用取消键捕获功能。

◆xlErrorHandler:将中断作为错误信号传递给运行程序,由On Error GoTo语句设置的错误处理程序捕获。可捕获的错误代码为18。

◆xlInterrupt:中断当前运行程序,用户可进行调试或结束程序的运行。

下面的程序先将EnableCancelKey属性设置为xlDisabled,即完全禁用取消键捕获功能,用户无法通过【Ctrl+Break】组合键强行终止循环;然后再将EnableCancelKey属性设置为xlErrorHandler。

第1章\范例1-032.xlsm