different password to unhide the hidden sheets.

hello,

I have 5 sheets, 3 of them are hidden, how can i put a 3 different password to unhide the hidden sheets.

regards
rahul

Just set a different password for the sheets!, when protecting sheets you can have a different password for each sheet.

Originally Posted by Simon Lloyd

Just set a different password for the sheets!, when protecting sheets you can have a different password for each sheet.

Hi thanks for the quick reply,

I want to know the procedure for encrypting the particular sheet for different user.

Encrypting? you're talking a lot of work!, it would be much easier to hide sheets base don the user accessing:

 
Dim Sh as worksheet
If environ("username") = "Fred" then
sheets("Sheet2").Visible=True
for each sh in sheets
if sh.name<> "Sheet2" then
sh.visible=xlsheetveryhidden
end if
next sh

Thanks once again for providing us the proper solution,

Can you please explain me the complete steps to hide this sheets, I am unable to understand where should we use this code. Is it a VB code?

Sorry for confusing you but I am unable to get proper solution that's the reason I am asking you this question?

It is VBA code and goes in the VBE in the ThisWorkbook module (Alt+F11), paste this in and add more cases as needed:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In Sheets
Sh.Visible = True
Next Sh
End Sub
Private Sub Workbook_Open()
Dim Sh As Worksheet
Select Case Environ("username")
Case Is = "Fred"
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
Case Is = "John"
Sheets("Sheet2").Visible = True
Sheets("Sheet2").Select
Case Is = "Simon"
Sheets("Sheet3").Visible = True
Sheets("Sheet3").Select
End Select
For Each Sh In Sheets
If Sh.Name <> ActiveSheet.Name Then
Sh.Visible = xlSheetVeryHidden
End If
Next Sh
End Sub