once only msgbox

brettvba · Apr 21st, 2002, 07:58 PM

Im wanting to have a msgbox popup only once kinda like a welcome to the new prog msgbox then thats it , does anyone have any code for that I would think it would include some vbediting from within the startup macro

any ideas??

James · Apr 21st, 2002, 08:21 PM

If i understand you requset it sounds like a
"splash screen" Try this:

'Create a UserForm, with your "welcome" then

Private Sub Workbook UserForm_Activate()
Application.OnTime + TimeValue("00.00.02"), _
"KillTheForm"

'This will show for 2 seconds, modify as needed.

James

brettvba · Apr 21st, 2002, 08:27 PM

no I want it to appear once and once only then after that when the workbook is opened the msgbox doesn't open again

Tom Schreiner · Apr 21st, 2002, 08:34 PM

You could place a switch in some unused cell.
For ex.

Private Sub Workbook_Open()
If Sheet1.Range("IV10000").Value = 0 Then
MsgBox "Hi! I hope you like my workbook"
Sheet1.Range("IV10000").Value = 1
End If
End Sub

Since the cell value now equals 1, assuming the workbook is saved, the messagbox will never show again...
Tom

Wayne_Sadler · Apr 23rd, 2005, 08:42 AM

James I could not get you code to work

Wayne

luc38luc · Apr 23rd, 2005, 12:10 PM

James is right you need a splash screen

First you create a userform and you place this in the back

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm"

End Sub

Then you place this in this workbook

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Finally add a module and place

Private Sub KillTheForm()
Unload UserForm1
End Sub

Should work find

cheers
luc

Norie · Apr 23rd, 2005, 12:19 PM

luc

Wayne doesn't want a form appearing every time the workbook is opened.

He wants it to only appear the 1st time it is opened and never again.

The code posted by Tom should work. It should go in the workbook module.

luc38luc · Apr 23rd, 2005, 05:21 PM

Norie....I guess your right

Cheers
luc

Wayne_Sadler · Apr 24th, 2005, 08:18 PM

Hi guys

I was looking for

Splash and one with a tick box to kill once ticked but this option could be reborn with a short command

Mastermaind it, full of ideas me,... LOL

don't know what you think, sorry I was not thinkin along the same lines may be because I'm a newbie ;-(

Can't you plug me in so I can download it...

That the futurre

TO BE MIND FULL He he

To much matrix hey guys

Many thanks Wayne

Apr 23rd, 2005, 12:19 PM	#7
Norie Board Regular Join Date: Apr 2004 Location: Yaren Posts: 58,375	luc Wayne doesn't want a form appearing every time the workbook is opened. He wants it to only appear the 1st time it is opened and never again. The code posted by Tom should work. It should go in the workbook module. __________________ If posting code please use code tags.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 21st, 2002, 07:58 PM	#1
brettvba MrExcel MVP Join Date: Feb 2002 Location: Christchurch New Zealand Posts: 1,030	Im wanting to have a msgbox popup only once kinda like a welcome to the new prog msgbox then thats it , does anyone have any code for that I would think it would include some vbediting from within the startup macro any ideas??

Apr 21st, 2002, 08:21 PM	#2
James Board Regular Join Date: Feb 2002 Location: Huntington Beach, CA USA Posts: 327	If i understand you requset it sounds like a "splash screen" Try this: 'Create a UserForm, with your "welcome" then Private Sub Workbook UserForm_Activate() Application.OnTime + TimeValue("00.00.02"), _ "KillTheForm" 'This will show for 2 seconds, modify as needed. James

Apr 21st, 2002, 08:27 PM	#3
brettvba MrExcel MVP Join Date: Feb 2002 Location: Christchurch New Zealand Posts: 1,030	no I want it to appear once and once only then after that when the workbook is opened the msgbox doesn't open again

Apr 21st, 2002, 08:34 PM	#4
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	You could place a switch in some unused cell. For ex. Private Sub Workbook_Open() If Sheet1.Range("IV10000").Value = 0 Then MsgBox "Hi! I hope you like my workbook" Sheet1.Range("IV10000").Value = 1 End If End Sub Since the cell value now equals 1, assuming the workbook is saved, the messagbox will never show again... Tom

Apr 23rd, 2005, 08:42 AM	#5
Wayne_Sadler Board Regular Join Date: Jan 2005 Posts: 129	James I could not get you code to work Wayne

Apr 23rd, 2005, 12:10 PM	#6
luc38luc New Member Join Date: Jan 2005 Posts: 29	James is right you need a splash screen First you create a userform and you place this in the back Private Sub UserForm_Activate() Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm" End Sub Then you place this in this workbook Private Sub Workbook_Open() UserForm1.Show End Sub Finally add a module and place Private Sub KillTheForm() Unload UserForm1 End Sub Should work find cheers luc

Apr 23rd, 2005, 05:21 PM	#8
luc38luc New Member Join Date: Jan 2005 Posts: 29	Norie....I guess your right Cheers luc

Apr 24th, 2005, 08:18 PM	#9
Wayne_Sadler Board Regular Join Date: Jan 2005 Posts: 129	Hi guys I was looking for Splash and one with a tick box to kill once ticked but this option could be reborn with a short command Mastermaind it, full of ideas me,... LOL don't know what you think, sorry I was not thinkin along the same lines may be because I'm a newbie ;-( Can't you plug me in so I can download it... That the futurre TO BE MIND FULL He he To much matrix hey guys Many thanks Wayne