Hi everyone, is it possible to get a userform to load up before the
workbook itself loads up?

Because I have a workbook which is about 30mB and takes about
3-4seconds to load.

Is there anyway to force a userform to show while the workbook itself
is still opening?

Thanks guys and gals.

Andy


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile: http://www.excelforum.com/member.php...o&userid=21390
View this thread: http://www.excelforum.com/showthread...hreadid=469760

Hi Andy.

Here's some VBA code from John Walkenbach's book 'Power programming with VBA'.

First create your form (MyStartupForm).

Then, in ThisWorkbook code module (VB editor):

Private Sub Workbook_Open()
MyStartupForm.Show
End Sub

This will show the form at start-up.

In the code module of the form:

Private Sub MyStartupForm_Activate()
Application.OnTime Now+TimeValue("00:00:05"), "Kill_The_Form"
End Sub

This will show the form for 5 seconds.

Finally, in a VBA module:
Private Sub Kill_The_Form()
Unload MyStartupForm
End Sub

This unloads the form after the 5 seconds.

Regards,
Alex



"carlito_1985" wrote:


Hi everyone, is it possible to get a userform to load up before the
workbook itself loads up?

Because I have a workbook which is about 30mB and takes about
3-4seconds to load.

Is there anyway to force a userform to show while the workbook itself
is still opening?

Thanks guys and gals.

Andy


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile: http://www.excelforum.com/member.php...o&userid=21390
View this thread: http://www.excelforum.com/showthread...hreadid=469760

I understand how to do that, the problem is, with a 30mB file, it take
some time to open as mentioned earlier about 3-4 sec and I would like
splash screen during this time, not after.
(In the bottom left corner, it says opening and has a green bar slowl
filling over 3-4sec. I want the splash during this)
Thanks anyways alexhatzisavas.
Andy

alexhatzisavas Wrote:
Hi Andy.

Here's some VBA code from John Walkenbach's book 'Power programmin
with VBA'.

First create your form (MyStartupForm).

Then, in ThisWorkbook code module (VB editor):

Private Sub Workbook_Open()
MyStartupForm.Show
End Sub

This will show the form at start-up.

In the code module of the form:

Private Sub MyStartupForm_Activate()
Application.OnTime Now+TimeValue("00:00:05"), "Kill_The_Form"
End Sub

This will show the form for 5 seconds.

Finally, in a VBA module:
Private Sub Kill_The_Form()
Unload MyStartupForm
End Sub

This unloads the form after the 5 seconds.

Regards,
Ale

--
carlito_198
-----------------------------------------------------------------------
carlito_1985's Profile: http://www.excelforum.com/member.php...fo&userid=2139
View this thread: http://www.excelforum.com/showthread.php?threadid=46976

carlito,
I guess you could initially open a dummy WB containing only the splash
screen userform. This WB then open your desired WB and then closes itself.

NickHK

"carlito_1985"
wrote in message
news:carlito_1985.1vr0qd_1127372719.9521@excelforu m-nospam.com...

I understand how to do that, the problem is, with a 30mB file, it takes
some time to open as mentioned earlier about 3-4 sec and I would like a
splash screen during this time, not after.
(In the bottom left corner, it says opening and has a green bar slowly
filling over 3-4sec. I want the splash during this)
Thanks anyways alexhatzisavas.
Andy

alexhatzisavas Wrote:
Hi Andy.

Here's some VBA code from John Walkenbach's book 'Power programming
with VBA'.

First create your form (MyStartupForm).

Then, in ThisWorkbook code module (VB editor):

Private Sub Workbook_Open()
MyStartupForm.Show
End Sub

This will show the form at start-up.

In the code module of the form:

Private Sub MyStartupForm_Activate()
Application.OnTime Now???("00:00:05"), "Kill_The_Form"
End Sub

This will show the form for 5 seconds.

Finally, in a VBA module:
Private Sub Kill_The_Form()
Unload MyStartupForm
End Sub

This unloads the form after the 5 seconds.

Regards,
Alex


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile:
http://www.excelforum.com/member.php...o&userid=21390
View this thread: http://www.excelforum.com/showthread...hreadid=469760

I would go with Nick's idea.

Have a wrapper workbook with fires the splash screen.
Load the other workbook from within the userform activate event.
When loaded, unload the form and close that wrapper workbook.

--
HTH

Bob Phillips

"NickHK" wrote in message
...
carlito,
I guess you could initially open a dummy WB containing only the splash
screen userform. This WB then open your desired WB and then closes itself.

NickHK

"carlito_1985"
wrote in message
news:carlito_1985.1vr0qd_1127372719.9521@excelforu m-nospam.com...

I understand how to do that, the problem is, with a 30mB file, it takes
some time to open as mentioned earlier about 3-4 sec and I would like a
splash screen during this time, not after.
(In the bottom left corner, it says opening and has a green bar slowly
filling over 3-4sec. I want the splash during this)
Thanks anyways alexhatzisavas.
Andy

alexhatzisavas Wrote:
Hi Andy.

Here's some VBA code from John Walkenbach's book 'Power programming
with VBA'.

First create your form (MyStartupForm).

Then, in ThisWorkbook code module (VB editor):

Private Sub Workbook_Open()
MyStartupForm.Show
End Sub

This will show the form at start-up.

In the code module of the form:

Private Sub MyStartupForm_Activate()
Application.OnTime Now???("00:00:05"), "Kill_The_Form"
End Sub

This will show the form for 5 seconds.

Finally, in a VBA module:
Private Sub Kill_The_Form()
Unload MyStartupForm
End Sub

This unloads the form after the 5 seconds.

Regards,
Alex


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile:
http://www.excelforum.com/member.php...o&userid=21390
View this thread:
http://www.excelforum.com/showthread...hreadid=469760