Password protect two sheets for viewing

[SaraWitch]

Hello peeps,

I have a code to password protect one sheet for viewing but does anyone know how to amend it to protect two?

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

Any help would be appreciated!

 

[gplhl]

It looks like you are protecting when the sheet is activated? Write your protect code, for both sheets into another module, then use the Run command in the activate section.