Can I add a pop-up message that will show when a workbook opens

Is there a way to add a 'pop-up' message, whereas when a file is opened, it
will display a message warning the user the file contains 'Official Use Only'
information?

THis macro put in the Workbook module will do it, but requires that macros be
enabled..........

Private Sub Workbook_Open()
MsgBox "NOTICE: Information in this file is for OFFICIAL USE ONLY"
End Sub

You might do as well by just making the first Sheet being only the NOTICE,
and saving the file with that sheet open.

Vaya con Dios,
Chuck, CABGx3



"Cruisin Lo" wrote:

> Is there a way to add a 'pop-up' message, whereas when a file is opened, it
> will display a message warning the user the file contains 'Official Use Only'
> information?

Put the messagebox into the Workbook_Open event handler

Code would be something like:

MsgBox"This Workbook Contains Work"

You can find detailed instructions on how to put code into the workbook
event on this page: http://www.jlathamsite.com/Teach/WorkbookCode.htm

"Cruisin Lo" wrote:

> Is there a way to add a 'pop-up' message, whereas when a file is opened, it
> will display a message warning the user the file contains 'Official Use Only'
> information?

that is a great macro! i scan these topics often and pick up some good
ideas and techniques. thanks...
Tonso
CLR wrote:
> THis macro put in the Workbook module will do it, but requires that macros be
> enabled..........
>
> Private Sub Workbook_Open()
> MsgBox "NOTICE: Information in this file is for OFFICIAL USE ONLY"
> End Sub
>
> You might do as well by just making the first Sheet being only the NOTICE,
> and saving the file with that sheet open.
>
> Vaya con Dios,
> Chuck, CABGx3
>
>
>
> "Cruisin Lo" wrote:
>
> > Is there a way to add a 'pop-up' message, whereas when a file is opened, it
> > will display a message warning the user the file contains 'Official Use Only'
> > information?

Glad it was helpful for you..........thanks for the compliment.

Vaya con Dios,
Chuck, CABGx3



"Tonso" wrote:

> that is a great macro! i scan these topics often and pick up some good
> ideas and techniques. thanks...
> Tonso
> CLR wrote:
> > THis macro put in the Workbook module will do it, but requires that macros be
> > enabled..........
> >
> > Private Sub Workbook_Open()
> > MsgBox "NOTICE: Information in this file is for OFFICIAL USE ONLY"
> > End Sub
> >
> > You might do as well by just making the first Sheet being only the NOTICE,
> > and saving the file with that sheet open.
> >
> > Vaya con Dios,
> > Chuck, CABGx3
> >
> >
> >
> > "Cruisin Lo" wrote:
> >
> > > Is there a way to add a 'pop-up' message, whereas when a file is opened, it
> > > will display a message warning the user the file contains 'Official Use Only'
> > > information?
>
>

You have some suggestions that use VBA to achieve your results.

Just be aware that if users disable macros, your code will not work.

You may wish to add further code to trap for that.

i.e. when the workbook is closed, a sheet saying "If you have disabled macros,
this workbook is useless"

You xlveryhidden all the sheets but that one.

If users open the workbook with macros disabled, this is all they will see.

If macros are enabled, your Workbook_Open code will show the NOTICE sheet.


Gord Dibben MS Excel MVP

On Wed, 28 Jun 2006 08:03:02 -0700, CLR <CLR@discussions.microsoft.com> wrote:

>THis macro put in the Workbook module will do it, but requires that macros be
>enabled..........
>
>Private Sub Workbook_Open()
>MsgBox "NOTICE: Information in this file is for OFFICIAL USE ONLY"
>End Sub
>
>You might do as well by just making the first Sheet being only the NOTICE,
>and saving the file with that sheet open.
>
>Vaya con Dios,
>Chuck, CABGx3
>
>
>
>"Cruisin Lo" wrote:
>
>> Is there a way to add a 'pop-up' message, whereas when a file is opened, it
>> will display a message warning the user the file contains 'Official Use Only'
>> information?