Message disappearing automatically

Iridium

Well-known Member

Joined

Jul 15, 2002

Messages

2,831

• Nov 25, 2003

• #2

Hoi!

This any use?

http://www.mrexcel.com/board2/viewtopic.php?t=49210&highlight=workbook+timeout

HTH

 

Upvote 0

Wil Moosa

Well-known Member

Joined

Aug 11, 2002

Messages

893

• Nov 25, 2003

• #3

Well, it ís what I'm after but as I came so far using a different road... the question still stands. Can a message be forced to run further code without using the key?

 

Upvote 0

Iridium

Well-known Member

Joined

Jul 15, 2002

Messages

2,831

• Nov 25, 2003

• #4

May be you could use the "splash screen" approach with a userform instead of a message box - check this out:

http://www.j-walk.com/ss/excel/tips/tip39.htm

Met vriendlijke groeten

 

Upvote 0

X

Xro

New Member

Joined

Jan 17, 2003

Messages

32

• Nov 25, 2003

• #5

How about this ? does not go automaticly but forces them to click "ok"

Sub Message_Before_Quit()
Dim Pause, Start, Mldg, Stil, Answer
Mldg = "Match Monitor will be closed within 10 seconds."
Stil = vbCritical + vbSystemModal
Answer = MsgBox(Mldg, Stil)
Pause = 10 ' pause how long.
Start = Timer
Do While Timer < Start + Pause
DoEvents ' lets uthere events run
Loop
Application.DisplayAlerts = False
Application.Quit
End Sub

just my humble effort

 

Upvote 0

NdNoviceHlp

Well-known Member

Joined

Nov 9, 2002

Messages

3,619

• Nov 25, 2003

• #6

Wil this seems to work if you put your warning message in a userform instead of a msgbox. Dave

Code:

Dim NextTime As Date
Sub Timer_start()
NextTime = Now + TimeValue("00:10:00")
Application.OnTime NextTime, "Message_before_Quit"
End Sub
Sub Message_Before_Quit()
Application.OnTime NextTime + TimeValue("00:00:10"), "Quit"
UserForm1.Show
End Sub
Sub Quit()
Application.DisplayAlerts = False
Unload UserForm1
ActiveWorkbook.Save
Application.Quit
Application.DisplayAlerts = True
End Sub

 

Upvote 0

X

Xro

New Member

Joined

Jan 17, 2003

Messages

32

• Nov 25, 2003

• #7

How about this ?, has a OK button but you dont need to press it, closes automaticly after 10 sec.

Sub MsgBox10seconds()

Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 10, "Automatisch...")
Application.DisplayAlerts = False
Application.Quit
End Sub

 

Upvote 0

Wil Moosa

Well-known Member

Joined

Aug 11, 2002

Messages

893

• Nov 26, 2003

• #8

Thanks all, Xro's solution works in my situation the best.

 

Upvote 0

Ivan F Moala

MrExcel MVP

Joined

Feb 10, 2002

Messages

4,209

• Nov 26, 2003

• #9

Yes, that Method and an API method ae explained here...

http://www.xcelfiles.com/API_02.html

http://www.xcelfiles.com/Excel03.html

 

Upvote 0

Wil Moosa

Well-known Member

Joined

Aug 11, 2002

Messages

893

• Nov 26, 2003

• #10

While both timers work well seperately... they do not work together. The second part of the code -from quit onwards is not executed.

Sub Timer_start()
Dim NextTime As Date
NextTime = Now + TimeValue("00:00:10")
Application.OnTime NextTime, "Quit"
End Sub

Sub Quit()
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 10, "Automatisch...")
Application.DisplayAlerts = False
Application.Quit
End Sub

Even when I follow the suggestion to create a userform the second timer does not execute anything.

Suggestions? ray:

 

Upvote 0