Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Limiting input with input box
Hi I'm doing a school project and I'm trying to find a way to limit wha the user enters into the input box...for example, Sub Log_On() Dim bText As String ' here is the INPUTBOX-function : bText = InputBox("Please Type Your Name", "Username") ' here is the INPUTBOX-method : bText = Application.InputBox("Please Enter Your Password" "Password") MsgBox "You typed the following password:" & Chr(13) & _ bText & Chr(13), , "Login Details" Sheets("Hardware").Select End Sub Therefore, I want to limit the user to be only allowed to enter ''abc into the password field.. How can I tweak my formula to allow me to d that? Also, if teh user types in teh wrong password, I don't want th macro to take him to the 'Hardware' sheet, I want it to stay in te same sheet. Thanks a lot. -- petros8 ----------------------------------------------------------------------- petros89's Profile: http://www.excelforum.com/member.php...fo&userid=2464 View this thread: http://www.excelforum.com/showthread.php?threadid=49251 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Limiting input with input box
Usually when you're checking passwords, you want the user to type whatever they
want--but you want to verify it before your code does something for them. Sub Log_On() Dim UserNameText As String dim PWDText as string Dim RealPWD as string RealPWD = "abc" UserNameText = InputBox("Please Type Your Name", "Username") PWDText = Application.InputBox("Please Enter Your Password", "Password") MsgBox "You typed the following password:" & Chr(13) & _ PWDText & Chr(13), , "Login Details" if pwdtext < realpwd then msgbox "no, no, no! else Sheets("Hardware").Select end if End Sub Be aware that this kind of stuff in excel is very simple to overcome by anyone who is really interested. petros89 wrote: Hi I'm doing a school project and I'm trying to find a way to limit what the user enters into the input box...for example, Sub Log_On() Dim bText As String ' here is the INPUTBOX-function : bText = InputBox("Please Type Your Name", "Username") ' here is the INPUTBOX-method : bText = Application.InputBox("Please Enter Your Password", "Password") MsgBox "You typed the following password:" & Chr(13) & _ bText & Chr(13), , "Login Details" Sheets("Hardware").Select End Sub Therefore, I want to limit the user to be only allowed to enter ''abc" into the password field.. How can I tweak my formula to allow me to do that? Also, if teh user types in teh wrong password, I don't want the macro to take him to the 'Hardware' sheet, I want it to stay in teh same sheet. Thanks a lot.. -- petros89 ------------------------------------------------------------------------ petros89's Profile: http://www.excelforum.com/member.php...o&userid=24645 View this thread: http://www.excelforum.com/showthread...hreadid=492518 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Limiting input by date | Excel Discussion (Misc queries) | |||
Have user input converted to uppercase in same cell as input? | New Users to Excel | |||
How do I add input data in the input ranges in drop down boxes. | Excel Discussion (Misc queries) | |||
=SUMIF(Input!H2:H718,AZ19,Input!E2:E685)AND(IF | Excel Worksheet Functions | |||
CODE to select range based on User Input or Value of Input Field | Excel Programming |