• Home
 · 
• Miscellaneous
 · 
• Password Protection With Up To 3 Attemps

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 :)

Inputs
One Command Button name Command1.

Rate Password Protection With Up To 3 Attemps

• 1
• 2
• 3
• 4
• 5

(10(10 Vote))

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