Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Enable/Disable
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 wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Enable/Disable Macro Pop-Up | Excel Discussion (Misc queries) | |||
enable/disable macro | Excel Discussion (Misc queries) | |||
Disable/ Enable Macro | Excel Programming | |||
Enable/Disable Macro | Excel Programming | |||
macro disable and enable. | Excel Programming |