Can Worksheets Be Password Protected from Viewing?

[bonzo]

I know that I can hide a worksheet, but I don't want to have to keep hiding/unhiding them all of the time. Instead, I'd like to be able to see -- and anyone to which I choose to send my workbook to be able to see -- all of my worksheet tabs at the bottom of my workbook. However, I'd also like to set things up so that if someone wants to view a particular worksheet, they have to provide a password. This is not the same thing as password-protecting a worksheet from updates. This is password-protecting the ability to block viewing access to the worksheet unless a password is provided.

Put another way, let's say I have Sheet1, Sheet2, and Sheet3. Sheet1 has contact information in it. Sheet2 has URLs for reference purposes. Sheet3 has financial information that is only for certain people to be able to view. I'd like to set things up so that everyone can see that there's a Sheet1, a Sheet2, and a Sheet3. But no one can actually select and view Sheet3 without a specified password.

Is there a way to do this and if so, how is it done?

Thanks...

Bonzo

 

[footoo]

Here's one possibility. Put it in the Sheet3 module :

Private Sub Worksheet_Activate()
Dim pw$
Application.EnableEvents = False
ActiveWindow.ScrollColumn = ActiveSheet.[XFD1].Column
Sheets("Sheet1").Activate
pw = InputBox(prompt:="Enter password to activate Sheet3")
If pw <> "Your Password" Then GoTo e
Sheets("Sheet3").Activate
ActiveWindow.ScrollColumn = ActiveSheet.[A1].Column
e: Application.EnableEvents = True
End Sub

 

[footoo]

I think this is better :

Private Sub Worksheet_Activate()
Dim pw$
Application.EnableEvents = False
Sheets("Sheet1").Activate
pw = InputBox(prompt:="Enter password to activate Sheet3")
If pw <> "Your Password" Then GoTo e
Sheets("Sheet2").Activate
ActiveWindow.ScrollColumn = ActiveSheet.[A1].Column
e: Application.EnableEvents = True
End Sub


Private Sub Worksheet_Deactivate()
Dim ws As Worksheet
Set ws = ActiveSheet
Application.EnableEvents = False
Sheets("Sheet2").Activate
ActiveWindow.ScrollColumn = ActiveSheet.Columns.Count
ws.Activate
Application.EnableEvents = True
End Sub