主题：关于提示这个问题

参考

http://www.foxtable.com/webhelp/scr/2655.htm

vars("不弹出错误") = true

'执行代码

vars("不弹出错误") = false

BeforeShowErrorMessage事件

If vars("不弹出错误") = true Then

    e.Cancel = True

End If