【VBA研究】定时关闭MsgBox及相关未公开的API

iamlaosong文

    大家都知道，VBA中自带的MsgBox不能自动关闭，某些特殊情况下需要在指定时间内用户没有点击消息框按钮后能继续运行代码，需要用到定时关闭的消息框，我一般都是自己做一个窗体显示，再用定时函数关闭对话框。方法如下：

1、创建窗体UserForm1，窗体的初始化函数最简单如下：

Private Sub UserForm_Initialize()

    Label1.Caption = “欢迎使用本工作薄！”
    Application.OnTime Now + TimeValue("00:00:05"), "CloseMsgBox"
End Sub

下面是防止用户自己关闭窗口：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     If CloseMode <> 1 Then Cancel = 1
End Sub

2、创建一个模块，模块中放一个关闭窗体的过程CloseMsgBox：<