Hide Sheet with Password Protection

[HotNumbers2001]

I need to hide a Sheet with a password protection. I need The Sheet TO UNHide Only after typing the password

Is this possible?

 

[Corticus]

Hi,

This should do it:

Private Sub Workbook_Open()

Sheets(1).Visible = False

Dim Password As String

Password = InputBox("Please Type in Password:")

If Password = 12345 Then
Sheets(1).Visible = True
Else
Sheets(1).Visible = False
End If

End Sub


HTH,
Corticus
This message was edited by Corticus on 2002-10-28 14:55

 

[Barry Katcher]

Assuming you want to hide the sheet from the end-user and only un-hide it yourself, first hide the sheet and then password protect the Workbook.

Tools/Protection/Protect Workbook

 

[HotNumbers2001]

thanks. will give it a try.