• Home
 · 
• Encryption
 · 
• Gives you password protection.

Gives you password protection.

Gives you password protection.

Rate Gives you password protection.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

intTry = 0
	Do 
		intPassword = Inputbox$("Please enter the password. You have 3 tries.", "Enter Password")
		
		If intPassword = "password" Then
		  Msgbox "Password Accepted", vbExclamation, "Correct Password"
		  Form1.Show
		Else
		  Msgbox "Password Declined", vbCritical, "Incorrect Password"
		End If

		intTry = intTry + 1
	Loop Until (intTry = 3 Or intPassword = "password")
End Sub