pls let me know how to create using marco. I have create marco like this.

Sub linkS1()
myPWD = Application.InputBox("Password Protected! Please Enter Authorized
Password to Continue!")
If myPWD = "ems5657c1s1" Then
Sheets("S1").Select
Range("A3:G3").Select
Else
MsgBox "Wrong Password! Bye!"
End If
End Sub

* the reason is, user still able unhide or using commandbar to display the
tab sheet. That mean, user still able to access without password.

TQ
Param