Splash Screen

[Brooke]

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 H]

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]

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

 

[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]

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]

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

Thanks again for the quick help.