View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Hennie Neuhoff Hennie Neuhoff is offline
external usenet poster
 
Posts: 57
Default Sheets - xlVeryHidden


Hi Guys
Excel 2003
A couple of sheets in my workbook contains confidential information.
Acess to these sheets is only possible via a password with the
following example:

Public Sub GoMenSh()
'Go to menusheet
If Sheets("MenuSheet").Visible = xlVeryHidden Then
GetPassw
ThisWorkbook.Worksheets("MenuSheet").Visible = True
Sheets("MenuSheet").Activate
Else
Sheets("MenuSheet").Select
End If
End Sub

I want to modify this code and delete the "else" section which means
that the user must always supply the password in order to get acess.
Once another sheet is selected, the confidential sheet should return
to its "xlVeryHidden" state.

Im sure this is possible via the sheet's code - similar to the statement
Before_closure, Im not sure how to do this.

As always, any assistance will be appreciated.
PS - I've got the option for user to select "hide sheet" ,via code but would
like to "automate" this in case he does not select it.
--
HJN