• Home
 · 
• Miscellaneous
 · 
• Two Functions For Passwords

Two Functions For Passwords

Two Functions For Passwords

Rate Two Functions For Passwords

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'DUH!'
Dim nRetries As Integer
Dim sPassword As String
    nRetries = 3
Do
    sPassword = InputBox$("Enter the password")
    nRetries = nRetries - 1
    If nRetries = 0 Then
    End
    End If
Loop Until sPassword = password$
End Sub


Sub Password2(Password2$)
'DUH!'
    Dim nRetries As Integer
    Dim sPassword As String
    nRetries = 3
    Do
        sPassword = InputBox$("Enter the password")
        nRetries = nRetries - 1
    Loop While sPassword <> Password2$ And nRetries > 0
    If sPassword <> Password2$ Then
        MsgBox "You got the password wrong - Access denied"
    End
    Else
        MsgBox "Welcome to the system - password accepted"
    End If
End Sub