Solved

Conditional Stop on Splashscreen with Form

Posted on 2011-02-22
4
259 Views
Last Modified: 2012-06-27
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.
0
Comment
Question by:Bright01
  • 3
4 Comments
 
LVL 30

Accepted Solution

by:
SiddharthRout earned 500 total points
ID: 34955833
How are you opening the user form (Splash)? Ensure that the user form loads in Modal Mode.

Sid
0
 

Author Comment

by:Bright01
ID: 34959262
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
 

Author Comment

by:Bright01
ID: 34959302
Show Modal is "True" under properties.
0
 

Author Closing Comment

by:Bright01
ID: 35043285
Simple solution - Effective solution.  Sid, Thanks Much for your help.  Sorry it took me so long to test it.

Best regards,

B.
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

The new Microsoft OS looks great, is easier than ever to upgrade to, it is even free.  So what's the catch?  If you don't change the privacy settings, Microsoft will, in accordance with the (EULA) you clicked okay to without reading, collect all the…
Technology opened people to different means of presenting information, but PowerPoint remains to be above competition. Know why PPT still works today.
Viewers will learn how to maximize accessibility options in an Excel workbook for users with accessibility issues.
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…

760 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now