Inputbox when selecting a cell

[Taislin]

Hi... i'm trying to create a file where a user inputs a password and based on a VLOOKUP formula a username appears in a specific cell after user press OK.

Currently i have this:

Sub PASS()

MyInput = InputBox("Please input your user password")
MsgBox ("Code Accepted!")
Range("I14").Value = MyInput
End Sub

The thing is that if i press CANCEL button here it will show the same msgbox and i would like it to show nothing, just cancel.
Then i would also like it to verify if the input value is any of the one's in the range, and if it is then it would say: "Code Accepted", otherwise "Code not Accepted. Please try again". And the box still remain with blank value so the user inputs a value again.
Also i would like this bok to appear just from selecting a specific cell, in this example cell I12. Currently i have to call this macro through a button or image and not by selecting the cell.

I added an attached file so you can understand better what i need.

Thanks for the help in advanced.

[Taislin]

About call the inputbox when cell is selected i already fixed it by using the following code in the sheet code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Target.Address = "$I$12" Then
        Application.Run ("PASS")
    End If
    
End Sub

Now the problem is all about the inputbox.
I would like it to show a message "Code accepted" if it was equal to any of the ones in the list i have in a range of cells. And if was not show another message like "This code does not exist. Please try again."

Someone can help please?