password Fail

[B4L4KS]

this is my password VBA

why wont it work
Private Sub Worksheet_Active()
Range("iv1111").Select
Retry:
x = InputBox("Enter password")
If x <> "slade" Then
If MsgBox("Invalid password.", vbRetryCancel) = vRetry Then GoTo Retry
Sheet1.Activate
Else
Range("a1").Select
End If
End Sub
any help please

kristian

 

[JazzSP8]

Private Sub Worksheet_Active()
Range("iv1111").Select
Retry:
x = InputBox("Enter password")
If x <> "slade" Then
    If MsgBox("Invalid password.", vbRetryCancel) = vbRetry Then GoTo Retry
    Sheet1.Activate
Else
    Range("a1").Select
End If
End Sub

 

[B4L4KS]

hi thanks for the help

but it still doesnt work

it goes to the cell and page but no password entry

 

[JazzSP8]

What do you want it to do?

I get the Password box, it works if you enter slade and fails if it doesn't

All you gave as a clue was "Why doesn't it work"

It wouldn't have worked because you were missing a letter in your code - Beyond that, it's anyones guess really

 

[B4L4KS]

i want to enter a page with restricted access so no one can enter without a password

hense why i have put the location at the bottom of the sheet?

Kristian

 

[JazzSP8]

Sorry, another mistake I didn't spot before

Try using this

Private Sub Worksheet_Activate()
Range("iv1111").Select
Retry:
x = InputBox("Enter password")
If x <> "slade" Then
    If MsgBox("Invalid password.", vbRetryCancel) = vbRetry Then GoTo Retry
    Sheet1.Activate
Else
    Range("a1").Select
End If
End Sub

 

[B4L4KS]

thanks for the help it works now

thanks

thanks

kristian
friend