Password Protect Command Button

[Pacman52]

Hi all I have a workbook that I need to share out to my wife and there are a couple of command buttons that once clicked would enable her to be able to view the coding ect of the WB as well as the ribbon and tabs ect.

The code shown below using a inputbox, prompts for a password to be entered if the button is clicked BUT if the password is wrong once OK is clicked or Cancel is selected then the inputbox closes and the code runs anyway.
Would someone let me know what I need to add to react to a wrong password entry and also to the cancel button.

Private Sub cmbEditWB_Click()

Dim 123 As String

    123 = InputBox("Please Enter Password to Access Controls")
    If ans <> "123" Then
    
    Call EditWB
    
    End If
    
End Sub

 

[Micron]

If you cancel or put in the wrong value, it will never be equal to 123, so of course your code will run. You'd want to run it IF it equals 123.
This simplified version should work.

Private Sub cmbEditWB_Click()
Dim ans As String

ans = InputBox("Please Enter Password to Access Controls")
If ans = "123" Then EditWB
   
End Sub

 

[Pacman52]

Thank you - I can't believe I missed the obvious

 

[Micron]

Happens to everyone. If you have a solution, please mark it a solved. That will take this off of the list of threads with no solution.

 

[Pacman52]

done - thanks again

 

[Micron]

Glad to help. But you marked your acceptance post as the solution rather than the post containing the solution.

 

[Peter_SSs]

Thank you - I can't believe I missed the obvious

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.