Splash Screen

Can someone tell me how to get a splash screen to come up only after a
certain date?? I know how to put the code in a userform, but have no idea to
only have it pop-up after an expiration date. I have a form that expires
each quarter and I want the user to see a pop-up window to have them contact
their admin for the lastest version.

Thanks
Brooke

Hi,

Maybe this.
Right click the userform and view the code and paste this in

Private Sub UserForm_Activate()
MyDate = #3/25/2008#
If Date >= MyDate Then
MsgBox "The userform is out of date"
Unload Me
End If
End Sub

"Brooke" wrote:

> Can someone tell me how to get a splash screen to come up only after a
> certain date?? I know how to put the code in a userform, but have no idea to
> only have it pop-up after an expiration date. I have a form that expires
> each quarter and I want the user to see a pop-up window to have them contact
> their admin for the lastest version.
>
> Thanks
> Brooke
>

Mike,
I pasted this code in the userform and now no pop-up comes up. Does it have
to be a past date to work? Actually I put 3/24/08 and nothing appeared when
I opened the spreadsheet.

Could it be I'm pasted in the wrong place?? Does it go under thisworkbook??
Thanks in Advance

"Mike H" wrote:

> Hi,
>
> Maybe this.
> Right click the userform and view the code and paste this in
>
> Private Sub UserForm_Activate()
> MyDate = #3/25/2008#
> If Date >= MyDate Then
> MsgBox "The userform is out of date"
> Unload Me
> End If
> End Sub
>
> "Brooke" wrote:
>
> > Can someone tell me how to get a splash screen to come up only after a
> > certain date?? I know how to put the code in a userform, but have no idea to
> > only have it pop-up after an expiration date. I have a form that expires
> > each quarter and I want the user to see a pop-up window to have them contact
> > their admin for the lastest version.
> >
> > Thanks
> > Brooke
> >

Mike-
I'm really new at this so I apologize up front. Where to view the code and
userforms will have to be walked through.

"Mike H" wrote:

> Hi,
>
> Maybe this.
> Right click the userform and view the code and paste this in
>
> Private Sub UserForm_Activate()
> MyDate = #3/25/2008#
> If Date >= MyDate Then
> MsgBox "The userform is out of date"
> Unload Me
> End If
> End Sub
>
> "Brooke" wrote:
>
> > Can someone tell me how to get a splash screen to come up only after a
> > certain date?? I know how to put the code in a userform, but have no idea to
> > only have it pop-up after an expiration date. I have a form that expires
> > each quarter and I want the user to see a pop-up window to have them contact
> > their admin for the lastest version.
> >
> > Thanks
> > Brooke
> >

Brooke,

If you want a popup when the workbook opens then you need something
different so try this, Alt +F11 to open VB editor, double click 'This
workbook' and paste this in there.

Private Sub Workbook_Open()
MyDate = #3/25/2008#
If Date >= MyDate Then
MsgBox "The userform is out of date"
ThisWorkbook.Close savechanges:=False
End If
End Sub

The other code is for the userform and works iwhen you activate that


Mike

"Brooke" wrote:

> Mike,
> I pasted this code in the userform and now no pop-up comes up. Does it have
> to be a past date to work? Actually I put 3/24/08 and nothing appeared when
> I opened the spreadsheet.
>
> Could it be I'm pasted in the wrong place?? Does it go under thisworkbook??
> Thanks in Advance
>
> "Mike H" wrote:
>
> > Hi,
> >
> > Maybe this.
> > Right click the userform and view the code and paste this in
> >
> > Private Sub UserForm_Activate()
> > MyDate = #3/25/2008#
> > If Date >= MyDate Then
> > MsgBox "The userform is out of date"
> > Unload Me
> > End If
> > End Sub
> >
> > "Brooke" wrote:
> >
> > > Can someone tell me how to get a splash screen to come up only after a
> > > certain date?? I know how to put the code in a userform, but have no idea to
> > > only have it pop-up after an expiration date. I have a form that expires
> > > each quarter and I want the user to see a pop-up window to have them contact
> > > their admin for the lastest version.
> > >
> > > Thanks
> > > Brooke
> > >

I'm understanding now. It worked perfectly. Any way to change the window
size, color, etc. ???

Thanks again for the quick help.

"Mike H" wrote:

> Brooke,
>
> If you want a popup when the workbook opens then you need something
> different so try this, Alt +F11 to open VB editor, double click 'This
> workbook' and paste this in there.
>
> Private Sub Workbook_Open()
> MyDate = #3/25/2008#
> If Date >= MyDate Then
> MsgBox "The userform is out of date"
> ThisWorkbook.Close savechanges:=False
> End If
> End Sub
>
> The other code is for the userform and works iwhen you activate that
>
>
> Mike
>
> "Brooke" wrote:
>
> > Mike,
> > I pasted this code in the userform and now no pop-up comes up. Does it have
> > to be a past date to work? Actually I put 3/24/08 and nothing appeared when
> > I opened the spreadsheet.
> >
> > Could it be I'm pasted in the wrong place?? Does it go under thisworkbook??
> > Thanks in Advance
> >
> > "Mike H" wrote:
> >
> > > Hi,
> > >
> > > Maybe this.
> > > Right click the userform and view the code and paste this in
> > >
> > > Private Sub UserForm_Activate()
> > > MyDate = #3/25/2008#
> > > If Date >= MyDate Then
> > > MsgBox "The userform is out of date"
> > > Unload Me
> > > End If
> > > End Sub
> > >
> > > "Brooke" wrote:
> > >
> > > > Can someone tell me how to get a splash screen to come up only after a
> > > > certain date?? I know how to put the code in a userform, but have no idea to
> > > > only have it pop-up after an expiration date. I have a form that expires
> > > > each quarter and I want the user to see a pop-up window to have them contact
> > > > their admin for the lastest version.
> > > >
> > > > Thanks
> > > > Brooke
> > > >