Hide sheet from view with password

[nparsons75]

Hi,

I have an excel file containing a number of sheets, I will name them sheet 1,2,3,4 and 5.

The issue I have have is this.

Sheet 1 and 2 need to be restricted access. Only certain people can view / edit as they contain sensitive data. Sheets 3,4 and 5 are open access and can be viewed by anyone.

Is there a way of password protecting or another method so that that only certain people can access sheet 1 and 2.

Currently to do this I am having to have two independent workbooks (restricted and open access).

Thanks

 

[Scott T]

This should work

Private Sub Workbook_Open()
havepass = MsgBox("Put your do you want to unhide sheet text here", vbYesNo + vbQuestion)
If havepass = vbYes Then
retry:
    pword = InputBox("enter password")
    If pword = vbNullString Then Exit Sub
    If pword = "password" Then
        Sheets("Sheet1").Visible = True
        Sheets("Sheet2").Visible = True
        Sheets("Sheet1").Unprotect ("passwordhere")
        Sheets("Sheet2").Unprotect ("passwordhere")
        Sheets("Sheet1").Activate 'change this to the sheet you want to be active when the correct password is entered.
    Else
        MsgBox ("please try again")
        GoTo retry
    End If
  
End If
 
End Sub

 

[nparsons75]

Fantastic, works perfectly, your a star, thank you.

 

[Scott T]

Glad to help