VBA password request before sub starts

[Pinaceous]

Hello Everyone,

Is there a way for the sub code to prompt for a password before it allows for the sub to continue?

Where if the incorrect password is provided by the user it exits the sub.

Something like this would help a lot!

Thanks,
Pinaceous

 

[Fluff]

Something like

Sub Pwrd()

    Dim Ans As String
    
    Ans = InputBox("Please enter a password")
    If Not Ans = "MyPassword" Then
        MsgBox "Oops"
        Exit Sub
    End If
    MsgBox "OK"
    
    
End Sub

 

[Fluff]

However, if you want the password masked, you'll need a Userform.
Create Userform with a textbox & command button.
In a standard module

Option Explicit
Public Cont As Boolean

Sub Pwrd()

    [COLOR=#ff0000]PassWrdFrm[/COLOR].Show
    If Not Cont Then
        MsgBox "Oops"
        Exit Sub
    End If
    
    MsgBox "OK"
    
End Sub

Changing the Userform name in red to suit.
And then in the Userform module

Private Sub CommandButton1_Click()
    
    If Not TextBox1.Value = "MyPassword" Then
        Cont = False
    Else
        Cont = True
    End If
    Unload Me
End Sub

Private Sub UserForm_Initialize()

    TextBox1.PasswordChar = "*"

End Sub

 

[Pinaceous]

Fluff,

That's excellent, thank you!

 

[Fluff]

Glad to help & thanks for the feedback

 

[Pinaceous]

Hey Fluff,

I didn't get a chance to test it out but what did you mean by

if you want the password masked

.

I am familiar with Userform but isn't the password automatically masked in VBA?

Thanks,
Pinaceous

 

[Fluff]

With an input box, you can see what pass word you type in, but with a userform you can mask the password.
Rather than seeing Password you'll see ********

 

[Pinaceous]

Oh I see now. That is much clearer for me and totally makes sence. Thanks again Fluff!