Robin,

A button isn't the best way because someone could select the sheet using the
sheet tab. having said that this isn't secure either but it's not bad.
ALT+f11 to open VB editoe. Double click 'ThisWorkbook' and paste this in on
the right

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name < "Sheet2" Then Exit Sub
Sheets("Sheet2").Visible = False
response = InputBox("Enter password to view this sheet", "Sheet")
If response = "MyPass" Then
application.EnableEvents = False
With Sheets("Sheet2")
.Visible = True
.Select
End With
application.EnableEvents = True
Else
Sheets("Sheet2").Visible = True
End If
End Sub

Mike

"Robin1979" wrote:

Hi

I have a very simple Command Button that is used for a user to change
worksheet however I would like to password protect this so that only certain
users can change into this sheet is anyone able to advise how to complete
this?

Current simple code is as follows:

Private Sub CommandButton1_Click()
Sheets("Sheet2").Select
End Sub

Thanks
Robin