Password Protect a Worksheet from Viewing

[music_al]

Hi

I want users to be able to click on a worksheet and then be prompted to enter a password before they can view it. I found this on another thread but a row of code is highlighted in red and it doesn't seem to work.

I get Compile Error Syntax Error.

Public PvSh As String
Public Pwd As String


Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim Num as Integer

If Pwd = "" Then
If Sh.Name = "Sheet2" Then
Num = ActiveWindow.Index
Windows(Num).Visible = False
If Application.InputBox("Enter Password", "Password") <> "airplane" Then
MsgBox "Incorrect Password", vbCritical, "Error"
Application.EnableEvents = False
Sheets(PvSh).Select
Application.EnableEvents = True
Else
Pwd = "airplane"
End If
Windows(Num).Visible = True
End If
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
PvSh = Sh.Name
End Sub

 

[jmacleary]

I have just copy and pasted your code into my own workbook and it ran fine - all I can suggest is you try the same into a new workbook.

 

[music_al]

It works when my sheets are just called Sheet1, Sheet2 and Sheet3.

I have several sheets. The only sheet that I do not need to be password protected is called "Data". All other sheets; "Roles", "Grades" etc need to be password protected.

I changed the second line to...

If Sh.Name <> "Data" Then