Macro Enable/Disable

[Marcus B]

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

 

[Bob Phillips]

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]

Thanks Bob,
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)