Macro Enable/Disable

Hi,

I am trying to ensure that a user can only use my spreadsheet if they enable
macros. I have used the workbook close event to set all the useful sheets to
veryhidden and have a warning sheet visible advising that they must enable
macros.

The problem is that the workbook open event that sets the warning sheet to
veryhidden does not immediately hide the sheet. How can I ensure that the
user dosen't see this sheet if they have enabled the macros.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheet.Visible = xlSheetVisible
Sheet28.Visible = xlSheetVisible
Sheet27.Visible = xlSheetVisible
Sheet6.Visible = xlSheetVeryHidden
Call ExitEditMode '(sub also has Application.ScreenUpdating = True/false).
Application.ScreenUpdating = True
End Sub

thanks
Marcus

You can't absolutely avoid it, but you could make it shorter by changing
screenupdating .

Private Sub Workbook_Open()
Sheet.Visible = xlSheetVisible
Application.ScreenUpdating False
Sheet28.Visible = xlSheetVisible
Sheet27.Visible = xlSheetVisible
Sheet6.Visible = xlSheetVeryHidden
Call ExitEditMode '(sub also has Application.ScreenUpdating = True/false).
Application.ScreenUpdating = True
End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Marcus B" <Marcus [email protected]> wrote in message
news:[email protected]...
> Hi,
>
> I am trying to ensure that a user can only use my spreadsheet if they
enable
> macros. I have used the workbook close event to set all the useful sheets
to
> veryhidden and have a warning sheet visible advising that they must enable
> macros.
>
> The problem is that the workbook open event that sets the warning sheet
to
> veryhidden does not immediately hide the sheet. How can I ensure that the
> user dosen't see this sheet if they have enabled the macros.
>
> Private Sub Workbook_Open()
> Application.ScreenUpdating = False
> Sheet.Visible = xlSheetVisible
> Sheet28.Visible = xlSheetVisible
> Sheet27.Visible = xlSheetVisible
> Sheet6.Visible = xlSheetVeryHidden
> Call ExitEditMode '(sub also has Application.ScreenUpdating = True/false).
> Application.ScreenUpdating = True
> End Sub
>
> thanks
> Marcus

Thanks Bob,
Marcus

"Bob Phillips" wrote:

> You can't absolutely avoid it, but you could make it shorter by changing
> screenupdating .
>
> Private Sub Workbook_Open()
> Sheet.Visible = xlSheetVisible
> Application.ScreenUpdating False
> Sheet28.Visible = xlSheetVisible
> Sheet27.Visible = xlSheetVisible
> Sheet6.Visible = xlSheetVeryHidden
> Call ExitEditMode '(sub also has Application.ScreenUpdating = True/false).
> Application.ScreenUpdating = True
> End Sub
>
>
> --
> HTH
>
> Bob Phillips
>
> (remove nothere from email address if mailing direct)
>
> "Marcus B" <Marcus [email protected]> wrote in message
> news:[email protected]...
> > Hi,
> >
> > I am trying to ensure that a user can only use my spreadsheet if they
> enable
> > macros. I have used the workbook close event to set all the useful sheets
> to
> > veryhidden and have a warning sheet visible advising that they must enable
> > macros.
> >
> > The problem is that the workbook open event that sets the warning sheet
> to
> > veryhidden does not immediately hide the sheet. How can I ensure that the
> > user dosen't see this sheet if they have enabled the macros.
> >
> > Private Sub Workbook_Open()
> > Application.ScreenUpdating = False
> > Sheet.Visible = xlSheetVisible
> > Sheet28.Visible = xlSheetVisible
> > Sheet27.Visible = xlSheetVisible
> > Sheet6.Visible = xlSheetVeryHidden
> > Call ExitEditMode '(sub also has Application.ScreenUpdating = True/false).
> > Application.ScreenUpdating = True
> > End Sub
> >
> > thanks
> > Marcus
>
>
>