Missed a line, use this instead

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MySheet = "Sheet1"
If ActiveSheet.Name = MySheet Then
ActiveSheet.Visible = False
response = InputBox("Enter password to view sheet")
If response = "MyPass" Then
Sheets(MySheet).Visible = True
Application.EnableEvents = False
Sheets(MySheet).Select
Application.EnableEvents = True

End If
End If
Sheets(MySheet).Visible = True
End Sub

Mike

"Mike H" wrote:

Hi,

Alt +F11 to open VB editor. Double click 'This workbook' and paste the code
below in. This does what you want but isn't secure. If a user doesn't
enable macros they see the sheet. Anyone with even a small amount of
knowledge and Google would view your sheet in seconds. Change "Sheet1" to
whichever you want


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MySheet = "Sheet1"
If ActiveSheet.Name = MySheet Then
ActiveSheet.Visible = False
response = InputBox("Enter password to view sheet")
If response = "MyPass" Then
Sheets(MySheet).Visible = True
Application.EnableEvents = False
Sheets(MySheet).Select
Application.EnableEvents = True
End If
End If
End Sub

Mike

"Lin4it" wrote:

Does anyone know if there is a way that I can password protect a worksheet
but still leave access to the rest of the workbook?