[ Password Protection With Up To 3 Attemps ]
This will ask the user to enter a password and if it is incorrect it will give them two more chances (three attempts in total). Please vote and leave comments :)
Original Author: JamesJD
Inputs
One Command Button name Command1.
Code
Private Sub Command1_Click()
Dim Password As String
Dim InputPassword As String
Dim Attempt As Integer
Password = "Secret"
Attempt = 0
Do
InputPassword = InputBox("Enter password. This is attempt number " & Attempt & ".")
Attempt = Attempt + 1
Loop Until (Attempt = 3) Or (InputPassword = Password)
If InputPassword = Password Then
MsgBox ("This password is valid!")
Else
MsgBox ("This password is invalid!")
End If
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.