| Function PasswordLock(Password As String) 'This will create an input box to create a simple password protection On Error GoTo error Dim xtra As String Start: xtra$ = InputBox("Please enter the password.", "Password Lock") If xtra$ = Password$ Then MsgBox "Correct Password!", vbExclamation, "Password Lock" Else If MsgBox("Incorrect Password! Would you like to try again?", 48 + vbYesNo, "Password Lock") = vbYes Then GoTo Start Else End End If End If Exit Function error: MsgBox Err.Description, vbExclamation, "Error" End Function |
Create an input box to create a simple password pr |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design