Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sheets - xlVeryHidden
Hi Hennie Try the 'Deactiviate' event of the confidential sheet as below Private Sub Worksheet_Deactivate() Me.Visible = xlVeryHidden End Sub If you are keeping this sheet always hidden then replace your existing code to get the password first and then..activate the sheet as below. Hope you have some other sheet which is always visible. Public Sub GoMenSh() GetPassw ThisWorkbook.Worksheets("MenuSheet").Visible = True Sheets("MenuSheet").Activate End Sub If this post helps click Yes --------------- Jacob Skaria "Hennie Neuhoff" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sheets - xlVeryHidden
Depending on how confidential your information is, it's worth remembering that the contents of very hidden sheets can be exposed if the Excel file is opened using Word. "Hennie Neuhoff" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
xlVeryHidden | Excel Programming | |||
Xlveryhidden | Excel Discussion (Misc queries) | |||
opposite of XLVeryhidden!! | Excel Programming | |||
XLVERYHIDDEN | Excel Programming | |||
xlVeryHidden Resolution | Excel Programming |