visual basics Splash Screen

  phildux 23:44 14 Apr 2005
Locked

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

  VoG II 08:24 15 Apr 2005

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

Loop

Unload Me

End Sub

  phildux 15:03 19 Apr 2005

VoG
This is all i can find

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

do you have any suggestions
cheers
phil

  VoG II 17:46 19 Apr 2005

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 2005

many thanks works great thanks

  phildux 20:27 19 Apr 2005

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 2005

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 2005

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

  phildux 07:23 20 Apr 2005

is it poss to put an evaluation period in the program

  VoG II 09:04 20 Apr 2005

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"

Application.Quit

End If

  phildux 19:17 20 Apr 2005

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.

Elsewhere on IDG sites

AMD Radeon Adrenalin release date, new features, compatible graphics cards

Turn a photo into 16-bit pixel art

iMac Pro release date, UK price & specs

Football : comment regarder la Ligue 1 en direct ?