Present A Splash Screen When Opening A Workbook
To display copyright information along with an artistic "splash" when a workbook is opened, create a form with attractive art and include a button that says something along the line of "I Accept". One of the properties of the form must be "ShowModal = True". This will prevent the ability to skip over the form until the "I Accept" button is pressed. The form name for this example is "frmIAcceptTheTerms", and the I Accept button is named "cmdIAccept".
To automatically present the splash screen at the time the workbook is opened, create a module named "Auto_Open" and add a few simple commands as illustrated below. Once the form is opened, the workbook remains locked until the "I Accept" button is clicked... triggering a "click" event. The click event handler will close the form... also illustrated below.
Program Code
Public Sub Auto_Open() ' ********************************************************** ' When The Workbook Is Opened, Show The Splash Screen Form ' ********************************************************** frmIAcceptTheTerms.Show End Sub Option Explicit ' ********************************************************** ' This is the Click Event Handler for a Button ' Named "cmdIAccept" in Form "frmIAcceptTheTerms" ' ********************************************************** Private Sub cmdIAccept_Click() ' ********************************************************** ' Unload The Splash Screen Form and Proceed To the Worksheet ' ********************************************************** Unload Me End Sub