Im using the following code on a User login userform. This code is for the Login command button to access the workbook (the user clicks on it after entering there username and password).
For some reason if the password is numbers only it just returns message box "Incorrect password, try again."
As soon as I put a single letter into the password it works fine,
[Code]....
I want the userform to display an input box asking the user to enter their 'login ID'. This has to be either "SUPERVISOR" or "STAFF".
Upon correct entry i need it to then display another input box asking for a 'password'. This needs to be "SHOES" for both logins.
If the login is not equal to SUPERVISOR or STAFF I need a message box displaying "username incorrect". and for it then to show the input box requesting the 'login ID' again.
Again if the password is not equal to "SHOES" to display a message box displaying "password incorrect" Then show the input box requesting the password.
Upon correct entry for both the username and password i would like my other userform to show. This is displayed by:
Load UserForm1
UserForm1.Show
I would like the correct 'username' to be displayed in cell "D27" on the active sheet and 'password' to be displayed in cell "F27" also on the active sheet.
If there is a way to display the password using asterix's for security that would be useful.
I have come up with the idea to create a userform to act as a login page for my project. I have the project complete and need a way to protect it. I want the userform to display an input box asking the user to enter their 'login ID'. This has to be either "SUPERVISOR" or "STAFF". Or If I have a table of 'users' and 'passwords' in sheet (USERS) to match them against that if it is easier?
Upon correct entry i need it to then display another input box asking for a 'password'. This needs to be "SHOES" for both logins. If the login is not equal to SUPERVISOR or STAFF I need a message box displaying "username incorrect". and for it then to show the input box requesting the 'login ID' again. Again if the password is not equal to "SHOES" to display a message box displaying "password incorrect" Then show the input box requesting the password. Upon correct entry for both the username and password i would like my other userform to show. This is displayed by:
Load UserForm1
UserForm1.Show
I would like the correct 'username' to be displayed in cell "D27" on the active sheet and 'password' to be displayed in cell "F27" also on the active sheet To show who is 'Logged On'. If there is a way to display the password using asterix's for security that would be useful.
I am trying to create a log-in page on a userform, frmlogin in "sheet3." The userform is simply a textbox, Username (txtuser) and a textbox, Password (txtpass). Command Button is cmdcheck
I want the User to enter their username and password and for my macro to verify that they match referencing data in a seperate worksheet, (Sheet6).
Upon verification I want the user to be unloaded on "sheet1"
I am currently getting this message: "unable to get vlookup property of the worksheetfunction class"
VB:
Private Sub cmdcheck_Click()
Dim Username As String
Username = txtuser.Text
[Code]....
I have a userform that numerous people need to fill in. I want to add a login function so that each person has their own login detail. Their will be a command button called login. Until they login in they cannot enter any data.
View 4 Replies View RelatedUsing Excel2010 in Windows7. I have a UserForm
1: TextBox for Input Username (txtUsernameIn)
2: TextBox for Input Password (txtPasswordIn)
3) Submit Button (cmdSubmit1)
I have a Worksheet
ColA: Username
ColB: Password
And this entire Range A:B, I have named "UserRegister"
I have code, attached to the cmdSubmit1 button on my UserForm. The purpose is to allow access to a veryhidden Worksheet "ADMIN".
The code 'works' if I enter in both the correct UserName and Password (ie: the code completes & Admin sheet opens up).
The code 'works' if I enter in the correct UserName and the wrong password (ie: code completes it's run, my msg pops up to say there is wrong input, unloads the form & sheet ADMIN stays veryhidden).
However, if I enter the wrong username (with either right or wrong password) the code breaks and I get a debug error. I know my code is obviously wrong/missing something etc - but I can't work it out! The line of code highlighted on the break, is between the *** below
VB:
Private Sub cmdSubmit1_Click()
Dim Username As String
Username = txtUserNameIn.Text
Dim password As String
password = txtPasswordIn.Text
[Code] ......
I want to make a user form that works as a password box. I have UserForm1 which is my "Menu" and I created UserForm2, which is my password entry form. The problem I have is that once I click "go" on my password box (which works fine), the Password Box closes but the user form remains open. I want the user form to close as well when I click "Go". So, my password box should close both UserForm1 and UserForm2.
Here is my code:
Private Sub cmdPasswordGo_Click()
Dim UserName, Password As String
UserName = txtUserName.Text
Password = txtPassword.Text
If UserName = "Chad" And Password = "Pass01" Then
Unload Me
Else: MsgBox "Your authentication cannot be validated"
End If
End Sub
My issue is that once UserForm2 is "unloaded", UserForm 1 is "active" but I cannot simply "Unload Me" again, I get an error.
I have below piece of code which I'm not sure how to finish up. What I'm trying to do is have 'Username' and 'password' entered before logging into the workbook. It does not have to be 'UserForm" if it is possible, but it would be useful if we use Ucase...
I'm just not sure how this code works with
"Sub sUserLogon(strStandardID As String, strPassword As String)"
stated in this way..
VB:
Sub sUserLogon(strStandardID As String, strPassword As String)
Dim strUserName As String
Dim StrMessage As String
Application.DisplayAlertsAlerts = False
StrMessage = "User Logged In"
[Code] ......
I found some username and password login code that I am editing for my needs, but I am having some trouble with it. I keep getting run time error '448': Named argument not found on the following line:
MatchCase:=False, SearchFormat:=False)
[Code] .....
I have also attached my workbook.
Equipment Return Log.xlsm‎
I have a workbook which, on opening, shows a logon form and depending on the username and password entered only certain sheets open - there are about 10 usernames and passwords - i have only included 2 to keep the code a bit shorter. I got the code below from here and it works perfectly but I want to make it a bit easier to add new usernames and passwords and am thinking of using a Vlookup table. The code i currently use is:
Option Explicit
Const sName1 As String = "Lisa"
Const sName2 As String = "Philip"
Const sPw1 As String = "update"
Dim sPW As String, sUser As String
Dim sMsg As String, sTitle As String, sStyle As String
Dim iCounta As Integer
Private Sub cmbValidate_Click()
sTitle = "Incorrect Password"...........
i currently have an excel based application with VBA code. I'm trying to add some controls around the app by prompting user for login and password credentials prior to ODBC connection at runtime. So when application is launched, prompt appears, user enters login and password, if correct, it goes on to verify user has ODBC connection at runtime.
View 2 Replies View RelatedI need a macro ie when a user opens a macro enabled workbook,he should be asked for a username and password to access workbook. Administrator should have right to create users with reset password rights
View 5 Replies View Related[URL]
Basically I’m trying to create a login userform that launches once the database opens.
Userform = LoginTextbox = UserformTextbox = PasswordCommand Button = UserloginCommand Button = UsercloseSheet containing passwords = Userpasswords
Usernames are stored vertically in the A column, and Passwords vertically on the B column both starting from row 1.
I’ve been using code found at [URL] but I’m struggling to make it work. Some of the variables listed below may be useless but I’m not entirely sure so I’m sceptical about removing them. !
VB:
Option Explicit
Dim ws As Worksheet
Dim Userpasswords As Worksheet
[Code]....
The below code works fine in excel 2003 but when I run it in excel 2007 it crashes excel.
(Microsoft Excel has encountered a problem and needs to shut down etc etc)
Private Sub CommandButton2_Click()
With Sheets("Sheet1")
.Range("A1").Value = ComboBox2.Text
.Range("C2").Value = ComboBox2.Text
.Range("C4").Value = TextBox5.Text
.Range("D1").Value = TextBox5.Text
.Range("C5").Value = TextBox7.Text
.Range("C6").Value = TextBox9.Text
.Range("C7").Value = TextBox13.Text
.Range("C8").Value = TextBox11.Text
.PageSetup.RightFooter = "&""Arial,Italic""&9" & ComboBox1.Text
End With
With Sheets("Sheet2")
.Range("G1").Value = ComboBox1.Text
End With
Unload Me
End Sub
I have tried all kind of changes that I thought might make a difference,
like changing .Text to .Value and vv,
I have a UserForm that I want to use as a Password screen
The form has a label, CommandButton and TextBox.
When I run the UserForm, IF you click OK without entering the Password, you still gain access to the Workbook!
IF you type in the wrong Password you still gain access to the Workbook and NO "Invalid password!" message pops up.
What I would like to happen IF the CommandButton is clicked without entering the Password, is for the Workbook to close, and IF the Password is correct, I want to load Useform2
I am using the following code provided by rorya, that I got from here.....
http://www.mrexcel.com/forum/showthr...light=password
[CODE]
Option Explicit
Private Sub CommandButton1_Click()
Me.Hide
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.PasswordChar = "*"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Me.Hide
End Sub
Sub Mycode()
Dim frm As UserForm3
Set frm = New UserForm3
frm.Show
If frm.TextBox1.Text = "Password" Then
' run your code
Else
MsgBox "Invalid password!"
End If
Unload frm
End Sub
[CODE]
See the attachment. Once you enable it. A userform will ask you for a password. Enter "aes" that will let you in.
My question is, when I enter the wrong password the first time, a userform popsup and asks for the correct the password. once I do place the correct password in the 2nd attempt. The file gets deleted!
It is not suppose to happen. I understand if I entered the password wrong twice the deleteing should take place.
The problem i have is with the sum offset function. The formula i use is to sum up the totals for each page of an accounts document. At the top of each page there is a column with " £ p " in it and i use that as the basis of the formula. This formula is entered in the bottom of every page to calculate the total for each page.
=SUM(OFFSET(F211,-(ROW(F211)-MATCH("£*",$F$1:F210,1)-1),0,ROW(F211)-MATCH("£*",$F$1:F210,1)-1,1))
This works all the time but when text is entered into column F (the column i'm adding up) it messes up with the formula. the formula will instead find the £ p but for a page 2/3 pages before the one i'm calculating on. This formula only faults when text is entered. Another thing; this excel sheet i'm working on is an output from a different computer program. it is outputted as csv file i think.
Like i said the formula works a treat except when text is entered. The obvious way around this not to enter text but that is not an ideal option. I cannot think of another way of calculating the total for each page although i'm sure another exists.
This script works great in 2003 in formatting text brought from Access, but fails in 97 - unfortunately I don't have direct access to Excel 97 - can anyone with it (or with a compendious knowledge of the differences!)
View 9 Replies View RelatedBelow is code i wrote to change a password. password value is hidden in cell iv4 in different sheets. My userform contains 3 textboxes and button to run macro. As long as old password matches cell value AND new password is entered twice correctly then it will change value in cell iv4.
View 4 Replies View RelatedI have a userform that is used to search and display complaints in the complaint Database. I am trying to achieve following to make it professional:
1. Is it possible to provide users with their own username & password, so that I can give permission to certain users to enter their input. e.g. when a complaint is logged, the owner of the complaint (which will be allocated by me depending on the complaint Category) needs to enter his feedback into a field (a textbox) and close the complaint. I want to give this previlage only to 2-3 nominated users. Every other user will just be able to enter & view complaints.
2. Is is possible to colour code these. Just so that when a user does and a search and views any particular complaint, it will tell him whether that particular complaint is open or closed. So may be closed complaint can have a red complaint number and open ones have a green. Any other ideas for displaying this are also welcome.
how to customize the userform with the background like Ivan's userform:
View 3 Replies View RelatedI was wondering if this code is supposed to make the icon on the taskbar change to the custom icon as well?
If not, what would need to be added or changed to make it so?
It changes the Userform Icon without issue and adds the userform to the taskbar, but it is not updating the icon on the taskbar.
On the attached example, there is a user form with a text box and an enter button.
What i want, is when i press the enter button, the value in the text box goes into cell B2 on sheet1 in the format of "?/???".
I have userform in excel which asks user to enter user id and password. I want a to have "Remember Me" check button on my userform which will remember user details and he wouldn't have to enter user id and password again and again.
View 14 Replies View RelatedI am trying to create a way to protect and unprotect all sheets and the worbook by means of a Userform pop up interface.
I have managed to create the Userform but what the code will look like and where to place the VBA code that will make it work, Also i would like to automatically save the sheet/s as i switch between them. so that any updates made to the sheet will be automatically saved when i move to the next sheet and also when i protect or close the workbook.
I've created a userform with a text box and a command button (Enter)
On clicking the command button I'd like whatever text has been entered into the userform to be put into a cell (Say A1).
When I click the excel printing icon, I want a userform to pop up in which I make the choice for a certain customview that I build. This customview must then be printout. Note that I want to use the standard Excel print icon, not a custommade one in the worksheet. I figured out some code, but it doesn't work. For instance my if structure returns "false" even if I did click that commandbutton, see the code below.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Static PrintRequest As Boolean
formMyview.Show
If formMyview.CmdCancel= True Then
MsgBox "printrequest canceled"
Unload Me
cancel=True
Exit Sub
End If
If PrintRequest = True Then
Exit Sub
End If
If formMyview.CmdOk = True Then
For Each Myoption In frameViewoptions.Controls
If Myoption.Value = True Then..........................
I have a list of employees that can be assigned to tasks, the list is large enough that I cannot remember who is assigned to what.
All the employees assigned major tasks are automatically filtered out but these are employees with administrative tasks that should only be assigned as a last resort. I would like to assign the employees with administrative tasks a gray, italic, strike-out or some other font to indicate that they are different.
I assume this is done during the Add Item process...
I have a problem with a HUGE macro project I'm working on. The macro itself isn't huge, but it's being applied to about 10,000 files. The macro is updating information on three spreadsheets in each workbook, but the problem is that the password protection (and Macro in general) fails to unlock when the password was entered in UPPERCASE. So the password is "king" and/or "KING" depending on the sheet. There is no way of predicting which sheets will be caps and which will not, but it's frustrating when my macro stops every 5 files with an error because of a wrong password (even though it's always one of those two).
Is there an IF THEN statement or something that I can do so that the macro doesn't stall every 30 seconds to 2 minutes... I have 10,000 files to crawl through.
how to liberate only the sheets already opened by this user, even after he/she has closed the workbook? It means that when this user re-open the workbook, only the password for this step (workbook) and of course for the sheets still closed (not yet visited), will be requested...
There will be about 20 users, accessing the same file (at least 8 or 9 at the same time), and each one has a different level. For this reason the workbook is also protected: depending on the username and password, I'm trying let excel "knows" what sheet each user can open, without type a password again. trying to illustrating: (all users and password are added by me, using a MasterSheet)
user1 ----- already unprotected sheet9 ----- can open sheet1 to 9 (no password, even re-opening the workbook)
to open the sheet10, a username and a password are required
user2 ----- unprotected sheet3 ----- can open sheet1 to 3 (no password, even re-opening the workbook)
to open the sheet4, a username and a password are required
............. and so on.........