Private Sub Form_Load() Dim Password As String Password = InputBox("Please input the password to access the program!") If Password = "Password" Then
MsgBox "Access granted, welcome to the program.", vbOKOnly, "Thanks for using." Else MsgBox "Access denied.", vbCritical, "Sorry!" End End If
End Sub
BroganTheLifecaster 2 years ago
Comment removed
pones una pass incorrecta y te funciona igual o_O
sakername 2 years ago
how can you use it on a folder
neokilller 3 years ago
wtf they can still acess program, its useless then
kanwarjyot 3 years ago
They can only access the login screen, NOT the program. :)
zaxey 3 years ago
kanwarjyot is correct. They can still access the program.
mcoaa 2 years ago
They can't access the program if you add 'End' after 'MsgBox "Access Denied", vbCritical, "Sorry!"'.
can you just copy the whole thing into comments i cant seem to get it right lol 0.o
Halaryoos 3 years ago 2
Disturbed - Get Psycho <-- I think you spell it like that :P
zaxey 4 years ago
oo; Whats the name of the song ?
Frankiezor 4 years ago
Private Sub Form_Load() Dim Password As String Password = InputBox("Please input the password to access the program!") If Password = "Password" Then
MsgBox "Access granted, welcome to the program.", vbOKOnly, "Thanks for using." Else MsgBox "Access denied.", vbCritical, "Sorry!" End End If
End Sub
BroganTheLifecaster 2 years ago
Comment removed
BroganTheLifecaster 2 years ago
pones una pass incorrecta y te funciona igual o_O
sakername 2 years ago
how can you use it on a folder
neokilller 3 years ago
wtf they can still acess program, its useless then
kanwarjyot 3 years ago
They can only access the login screen, NOT the program. :)
zaxey 3 years ago
kanwarjyot is correct. They can still access the program.
mcoaa 2 years ago
They can't access the program if you add 'End' after 'MsgBox "Access Denied", vbCritical, "Sorry!"'.
mcoaa 2 years ago
can you just copy the whole thing into comments i cant seem to get it right lol 0.o
Halaryoos 3 years ago 2
Disturbed - Get Psycho <-- I think you spell it like that :P
zaxey 4 years ago
oo; Whats the name of the song ?
Frankiezor 4 years ago