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.
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,
I have a spreadsheet on sheet 1 with a list of customers and their information. So on column A I have the customer number (i.e. k968, e37, p528,...), on column B i have the customer's name, on column C the street's name, on Column D the house number, on column E the zip code and finally the city on column F.
Right now there are around 600 customers in this list.
I have made a userform with a combobox in which I want to select an existing customer (pulled from the spreadsheet). On the same userform I have textboxes (customer number, name, street, number, zip, city). When I select a customer in the combobox, I want this customer's info to show up in the textboxes. I want to be able to change the info and hit Next to store the changes in the spreadsheet. When I do not select a customer from the combobox, I want to add new info in the textboxes and hit Next to store this info as a new customer. The userform also has a delete button. Then I select a customer in the combobox, this customer (and it's info) should be deleted from the spreadsheet when i hit Delete. So the spreadsheet is variable in length.
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)
I am trying make a macro required a password to run.
I found this code below but not sure how to use it. I would like to be able to run it from a command button.
Sub MPW() Dim My Password My Password = InputBox("Please enter password", "Password Prompt", "********") 'Hardcode password If MyPassword = "password" Then MsgBox "Access Granted", vbInformation, "Access" 'call macro Exit Sub Else
Here how it works, if B3 is the same color as the reference cell $A$76 and D3 is different than D4 then the result is 1
I would like this function to work from line 3 to line 60 and return the total of lines where the conditions are met. I'm thinking of a =COUNTIF function but can't get something to work. If there is a simpler way, it's even better. The IfColor is a function I wrote in VBA,
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.
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.
Below 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.
I 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.
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
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.
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.
I 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.
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
I have 2 option buttons and 3 userforms. The passage between those userforms are made with "next/back" command buttons.
Options buttons are € and $ and they are in the first userform.
If the user make a choice between € and $ in the userform1, the following macro plays
If Me.Dollar Then Sheets("Data").Range("B2").Formula = "$" Else Sheets("Data").Range("B2").Formula = "€" End If Problem
The other 2 userforms contains texts that depends on the choice made in the first userform/option buttons (€ or $)
Private Sub UserForm_Initialize() Application.ScreenUpdating = False Text1.Caption = Worksheets("Data").Range("B2").Value Text2.Caption = Worksheets("Data").Range("B2").Value Text3.Caption = Worksheets("Data").Range("B2").Value End Sub
so in theory userform initialize should change the text and get what s written in Data Sheet.B2 cell automatically and INSTANTLY. But it only gets the initial choice and when I go back/forward between userforms and even change the € to $ or vice versa the inital choice remains in the next userforms.
I am trying to get my userform to search a worksheet for data.
In "A" I have a vehicle name (Audi, BMW etc) these names occur more than once
In "B" I have the vehicle model.
i.e:
A B Audi A3 Audi A4 Audi A6 BMW X5 BMW M3
I would like to be able to have a command button on my userform (preferable one for each vehicle type) that the user can click on to then add the list of relevant vehicle models into a combo box.
i.e Click on the Audi command button and the combo box displays all the models in "B" that have Audi in "A"
i have a userform which displays a textbox which shows a variance in price terms based on a sheet which has live data via dde.
I would like to turn this userform into some kind of floating monitor if possible. At the moment - once you fire up the userform - the price in the textbox is fixed and does not change with the cell which fills the textbox on the userform. The only way is if you close the userform and re-open - then you will see the current price. I would like to keep this userform floating so that you can still select other cells on the sheet. Is this possible?
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize() With ThisWorkbook.Sheets("price").Range(ActiveCell.Address) If .Value = "" Then Range("D31").Select Me.TextBox1.Value = "No Trade Selected"...................
I have below code for prevent to close a user form:
[Code] ....
But this work to me only one time, when i make a second press on close button user form close. I think i have to make a loop or something but i really don't now how?
I am trying to make my textbox on the userform equal a cell value in a column. I need the userform to look at the last cell that has a value in a column and display that value into the textbox on the userform.
Ex. I am starting my data from Cell "O8" and the last possible row would be "O51" Starting with O8 I need my textbox in the userform to read this cell value. After each entry the next row in Column O will have a value, so I would need my userform textbox to read cell "O9" value the next time the user form opens. Here is what I got thus far:
[Code].....
It gives me a Compile Error: Invalid or unqualified reference.
I have constructed a user form with a set of comboboxes containing a number of choices. However, the different alternatives depend on each other, and instead of having all the choices available in the second combobox I would like to only have the "correct" ones depending on the choice made in the earlier combobox.
For example; --------------- A-B-C Car-Blue-USA Car-Red-USA Truck-Green-Sweden Truck-Blue-Sweden
If I choose Car in the first combobox, I would like to only have the choices [Blue, Red] available in the second combobox, not the full set of data [Blue,Red,Green] and so on. However, I have two problems construction this;
1) If I make the rowsource A1-A4 for the first combobox, I get the alternative [Car,Car,Truck,Truck], not [Car,Truck]. It is possible to come around this problem by making a unique list in addition to the linked list showed above, such as;........
I have put calendar in my form and I want it to be visible only if I click on the combobox and make it invisible when date gets filled in the combobox.
I wrote the following code but it gives me runtime error -2147417848(80010108) Automation error :The object invoked has disconnected from its clients.
I am trying to make a userform that will update a list in the spreadsheet. Basically if a user types into a multiline textbox numbers (separated by line) like so:
5 10 15 20
then the macro will paste that data at the end of a list so that each number is in a new cell. The only thing I have that comes close is Range("A1").value = listbox1.value The problem with this is that it will input the entire list into one cell. I have attemped various things, like trying to get the list into the clipboard and pasting, but I haven't really had much luck.
