timeout userforms, message boxes, etc. (97/2000/2002)

Topic

New Reply

What is the easiest way to make a MsgBox or custom userform time out so that the form will
automatically unload and the code continue executing in, say, 60 seconds if the user does not
respond?

Damon Ostrander

Reply | Quote

Replies

If your form is named Userform1:

In a normal module:

Sub DismissIt()
Unload UserForm1
End Sub
Sub ShowIt()
UserForm1.Show
MsgBox “Done!”
End Sub

In the forms module:

Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue(“00:00:05”), “dismissit”
End Sub

Reply | Quote

Thanks Jan,

That was helpful. I had to add a bit of code to keep from getting an error if I cancelled the userform manually before the timeout occurred:

Dim DismissTime As Date

Private Sub CommandButton1_Click()
Application.OnTime DismissTime, “dismissit”, schedule:=False
Unload Me
End Sub

Private Sub UserForm_Initialize()
DismissTime = Now + TimeValue(“00:00:05”)
Application.OnTime DismissTime, “dismissit”
End Sub

Keep Excelling.

Damon

Reply | Quote