Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

Conditional Stop on Splashscreen with Form

Posted on 2011-02-22
4
Medium Priority
?
269 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 2000 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

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I wanted to share this with fellow Experts, who might not know. How often have you wanted to learn something, only to be set back by either restrictions imposed on "trial" or "evaluation" software?  How often have you had to rebuild a home networ…
This very simple solution applies to a narrow cross-section of the "needs to close" variety. In this case, the full message in Event Viewer was in applog, Event ID 1000: Faulting application iexplore.exe, version 8.0.6001.18702, faulting module …
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…

972 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