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.
Bright01Asked:
Who is Participating?
 
SiddharthRoutConnect With a Mentor Commented:
How are you opening the user form (Splash)? Ensure that the user form loads in Modal Mode.

Sid
0
 
Bright01Author Commented:
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
0
 
Bright01Author Commented:
Show Modal is "True" under properties.
0
 
Bright01Author Commented:
Simple solution - Effective solution.  Sid, Thanks Much for your help.  Sorry it took me so long to test it.

Best regards,

B.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.