visual basics Splash Screen

  phildux 23:44 14 Apr 05

how do i alter the speed of the splash screen in visual basics

  VoG II 08:24 15 Apr 05

A tad more detail would help!

Assuming that you are displaying a userform as the splash screen then the following userform code will work.

Private Sub UserForm_Activate()

Dim PauseTime, Start

PauseTime = 3 ' Set duration.

Start = Timer ' Set start time.

Do While Timer < Start + PauseTime

DoEvents ' null events - just to keep screen active


Unload Me

End Sub

  phildux 15:03 19 Apr 05

This is all i can find

Private Sub Workbook_Open()
'Display splash screen
If Worksheets("prefs").Cells(3, 2).Value = True Then
End If

do you have any suggestions

  VoG II 17:46 19 Apr 05

In the Visual Basic Editor, in the left hand pane click on Forms. Click each one in turn (if there is more than one) to see which one is being used as the splashscreen (it is probably called Splash). Right click it and select View Code. Copy the code and paste it here, or replace it with the code that I put above.

  phildux 20:12 19 Apr 05

many thanks works great thanks

  phildux 20:27 19 Apr 05

when i open the excel sheet it comes up enable macros (thats ok) but then the program opens, then the splash screen opens over that. is it possible to go enable macros then the splash screen opens before the program. also is it possible to hide some of the tool bars and menus and also lock some of the cells so as they can not be changed

  VoG II 20:42 19 Apr 05

No you cannot show the splash screen before the program opens.

To lock cells select the cells that you want to be UNlocked, Format/Cells, Protection tab, untick Locked. Then Tools/Protection/Protect Sheet.

To hide the toolbars and menus, Alt+F11 to open the Visual Basic Editor, Insert/Module and enter the following:

Sub Auto_Open

Dim cBar as CommandBar

For Each cBar in CommandBars

cBar.Enabled = False

Next cBar

End Sub

Then, save, close the workbook and re-open it.

  phildux 20:50 19 Apr 05

are there any short cuts to get the tool bars back open

  phildux 07:23 20 Apr 05

is it poss to put an evaluation period in the program

  VoG II 09:04 20 Apr 05

To get the toolbars back use code similar to the above but setting .Enabled = True

To set an expiry date you could use something like this in the Auto_Open macro

Dim Mydate As Date

Mydate = DateSerial(2005, 4, 17)

If Now() > Mydate Then

MsgBox "expired"


End If

  phildux 19:17 20 Apr 05

how do you make an excel page go plan white rather than have all the cells showing

This thread is now locked and can not be replied to.

How to watch Surface PC live stream | Surface PC release date, price, spec rumours: All-in-one…

1995-2015: How technology has changed the world in 20 years

Best Photoshop video tutorials: 8 video tutorial websites for Photoshop

Apple's event invitations decoded: A look back at 16 of Apple's most cryptic invites | Clues in…