inputbox password error

[sassriverrat]

Good Afternoon,

I have an input box that shows a veryhidden sheet. I'm trying to use Cell B23 on Developer sheet as the password (so the password can be easily changed). This code worked perfectly when the password was just typed in the coding itself but now trying to reference the developer sheet it isn't working. Ideas?

Private Sub CommandButton2_Click()mypass = Application.InputBox("Enter Password", "The Coding Sheets")
If mypass = Worksheets("Developer").Range("B23:E23").Value Then
    Sheets("Developer").Visible = True
    Sheets("Developer").Select
    Sheets("Notes").Visible = True
    Application.Visible = True
End If
Unload Me
End Sub

 

[Fluff]

try

If mypass = Worksheets("Developer").Range("B23").Value Then

 

[sassriverrat]

Hmmm. Didn’t work. The input box goes away after entering and nothing happens (as if I put the wrong password in). I was using 1234567890 as the password.

 

[Peter_SSs]

Try

If mypass = CStr(Worksheets("Developer").Range("B23").Value) Then

 

[sassriverrat]

Try

If mypass = CStr(Worksheets("Developer").Range("B23").Value) Then

Worked like a champ!
Thank you!

One question- what did that do differently?

 

[Fluff]

The InputBox returns a string rather than a number, so Peter's code converts the cell value to a string in order to compare it to the "mypass" value

 

[sassriverrat]

Ahhh that makes sense. Thanks guys!

I've almost got my project "error proof" for the users!