Something like...
Dim strAnswer As String, MyPassword As String

MyPassword = "Test"

strAnswer = InputBox("Enter Password: ", _
"Password Protected Worksheet...")

'make everthing uppercase for comparison
If UCase(strAnswer) < UCase(MyPassword) Then
Application.Sheets("Page_1").Activate
End If


"Capt.Scott" wrote:

Developing a small program containing 125 sheets with buttons directing you
to the sheets. now there are several sheets that i only want certain users to
access, is there VB code which when you click on say page 120 a window pops
up asking for a 4 diget code and will redirect you to the main page if the
code is entered incorrectly???