Link to home
Start Free TrialLog in
Avatar of Bright01
Bright01Flag for United States of America

asked on

Conditional Stop on Splashscreen with Form

I have a Splashscreen that when I open my spreadsheet, it automatically comes up.  It has a set of conditions that the user must adhere to and a button that says "Accept".  The problem I have is that there is no ability to halt access.  In other words, the user can simply move on to the next screen.  What needs to happen is that until the button is pressed, access to the rest of the spreadsheet should be disabled.

Thank you.

B.
ASKER CERTIFIED SOLUTION
Avatar of SiddharthRout
SiddharthRout
Flag of India image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Bright01

ASKER

Sid,

Greetings again!  Here's what I'm using to load it from "This Workbook"

Option Explicit
Private Sub Workbook_Open()
    Sheets("Splash").Select
    Application.OnTime Now() + TimeSerial(0, 0, 1), "module1.ShowForm"
    Worksheets("timer").RunCheck
   
    End Sub
   
'This code opens the splash screen
Show Modal is "True" under properties.
Simple solution - Effective solution.  Sid, Thanks Much for your help.  Sorry it took me so long to test it.

Best regards,

B.