Excel 2010 :: Userform As Login Form - VBA To Validate Username And Password
Jun 18, 2012
Using 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
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"
I 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
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
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.
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'm keen to add a field to a spreadsheet that populates a cell with the username of the last person who edited the file, as in the system or logon name, e.g. first.lastname syntax.
I would however like to keep this sheet as an .xlsx and not have it as an .xlsm. I have the code to use VBA, but is there way to grab the username without VBA to keep the .xlsx format?
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Public Function UserName() As String Dim Buffer As String * 100 Dim BuffLen As Long On Error GoTo UNerr
[Code] ......
I found the code online and attempted to call the user name using =username() on the specified cell, but I receive the #NAME? error. I looked around and found several references to check the VB refence box for anything missing and I did not find anything incorrect.
To note, I am attempting this at my job's PC which will be used on other employees PC's as well.
To create a custom date validation formula. But it doesn't work.
I need to insure the user has to put in the format "xx/xx/xxxx" where x is a 0 to 9. I am using Excel 2010 and when I put in a year greater than 1899, my error message pops up. I'd also like to restrict the month to up to 12 and yes the days up to 31. I used the "date" utility but it allows stuff like 4/25 and then puts in this year for you. It also accepted three digits such as 786 and I don't know what that means.
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:
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.
I am using the below code to access a website with IE.
My next step (of many) is to Login to this website.
The login screen requires that I enter: User Name: Password:
How can I tell IE to enter my user name and Password?
Sub Macro2() ' 'Macro2 Macro ' Macro recorded 2/6/2007 by dsggodwin Public Sub Goto_ToyotaSupplier_Click() Dim EXP
Set EXP = CreateObject("InternetExplorer.application") EXP.Visible = True 'put the webpage here EXP.Navigate ("https://www.portal.toyotasupplier.com/skpi/SkpiGatewayServlet?jadeAction=NCPARTS_SEARCH") End Sub
I'm trying to create a program that will automatically log in to a website that requires a username & password. I am able to enter the username and password in the correct text boxes, but I can not get the form to submit to approve the login. It refreshes and removes the password.
I have attached my code. The web url is inside it.
Sub IE_login() Dim ie As InternetExplorer Dim C Dim ULogin As Boolean, ieForm Dim MyPass As String, MyLogin As String Set ie = New InternetExplorer ie.Visible = True ie.Navigate "https://applications.dacgroup.com/login.aspx" 'Loop until ie page is fully loaded Do Until ie.ReadyState = READYSTATE_COMPLETE Loop
1) navigate to a web page 2) submit my userId and password 3) beeing redirected to a different url I have to menage this situation for passing url to 4) quering sub
I am using Excel 2000 with win98 Error 429 Can't create object:which one?
Public Sub First() Dim obEx As Object Dim obj As New MSHTML.HTMLBody Dim strPass As String Dim elUid As New MSHTML.HTMLInputElement Dim elPass As New MSHTML.HTMLInputElement Dim elSubmit As New MSHTML.HTMLInputElement Dim strUid As String Dim Desc As String
As part of my requirement, i'm trying to update some data into share path. While trying to access the share path, i'm being asked to key-in appropriate username & password. Windows alert will be opened when my code try to access share path, there I have to enter username & password using script.
I am trying to log on to an FTP site and post a file through Excel VB. I have managed to open a new Explorer window and direct it to the URL, but I don't know what to do next. After navigation to the URL a Pop-Up Window comes asking for UserName and Password and I don't know how to supply it and click submit. After I have completed that I will need to give the path of the file, click post, and close the window when it is done.
Here is what I got so far:
The commented out stuff is not working. I got it off a similar application that someone else in my company wrote that accomplishes a similar task.
Sub SConnect() Dim IE As InternetExplorer Dim IEURL As String Dim IEDoc As HTMLDocument Set IE = CreateObject("InternetExplorer.Application") Set IE = New InternetExplorer IE.Visible = True IEURL = "https://something.com" .................
I'd like to automatically enter the username and password from a spreadsheet.
Currently, I've got a spreadsheet that has a login id in one cell and a password in an adjacent cell.
I click a button on the spreadsheet to call a hyperlink to a webpage while excell is using the copy function to copy the username to the clipboard.
Once the webpage loads, I just paste the username into the username box.
Then I go back to excel, copy the password, then back to the webpage and pastes the password.
This works good for me, but I'd like to make it a little bit better.
What I'd like to be able to do, if I had the username and password in one cell seperated by a symbol (say, "=" since usually don't use that one) then when I hyperlink to the webpage, I hit paste.
>> this time, when I hit paste, (maybe using some kind of a api code or something), excel pastes into the first box, *automatically* hits the [TAB] key, and paste the password.
I was able to get some help a while ago and hoping for someone to reply as well. Any one have ideas how to create a userform which will be use for username and password input? I know how to create one but is there anyway that the username and password will be stored as .txt file instead of using worksheet to store the data?
I trying to create a paperless petty cash system. I have my sheet all setup and calculating how I want. When a user makes an entry they Enter their name in column "W".
I am trying to overcome the problem of accountability. I need to achieve a cell calls for Username and Password and if correct the persons name is entered into cell then Row is locked to prevent figures being altered etc. But also if user made mistake they need to unlock it somehow someway
Sure this achievable from snippets of info I seen online but its way beyond my abilities. I realise a determined user can circumvent this if they wanted to.
I've been playing around with the API functions (specifically, InternetOpenURL) to retrieve the contents of an HTTP webpage and store the information within a text file, using Excel VBA. It works great for any "normal" webpage not requiring a "Username" and "Password" login. I can't find any examples on how this is done for a webpage requiring such a login? I've heard you can do this via sending the appropriate cookie to the server, but I can't find any documentation on the web? Does anyone have any idea on how this functionality is achieved?
I have a userform (Login), which allows you to login by entering your username, password and by selecting your role.
When you enter the username, password and role and click on submit, it shows another userform (Activities).
Now what I want is, when i enter username, password and select the role as team manager and click on submit, it should show the userform - "Manager_Login". For all other roles, it should show the userform - "Activities".
The usernames, passwords and roles are on the sheet - "User Access".
I have a spreadsheet (don't we all) that is currently password protected - you double click the file and need to input a password before it will open.
I have some code that will protect a workbook from changes and only unlock for specific usernames, and i wonder if there is some code that will do the following:
-User opens spreadsheet -VBA looks at the username trying to open the sheet, for this example the username is Paul.Smith -Paul.Smith is not one of the people who should have regular access to this sheet - so the VBA requests a password from him prior to opening the sheet.
My username opens the same sheet (galvin.paddy), VBA see's that my name is one of the 'Authorised Users', removes the password and opens the sheet for me ready for use.
Trying to find a set of code that I can use to open a website that's predetermined, and enter in the users name and password automatically. And if possible, open a new email via the website, addressed to a person, and ready to browse for the file to attach.
The code I have is below.
Private Sub CommandButton1_Click() ' storenumber = [$c$3]
If [$iv$2] = True Then
If [$iv$3] 0 Then
MsgBox ("Can't send with No Adjustments Checked & Items to Adjust, Please clear one") End End If End If..................
I have a workbook (attached) which has a button that would enable a user login using a username and a password. The usernames and passwords are configured on an hidden sheet (config) in Columns A to D. In column D, access level is selected to be either "FULL" or "LIMITED" which gives access to an extra button which enables user to be able to create new users, change passwords and all.
The issue I have is, the user I have configured to have FULL access does not have it as the button which gives access to this functionality does not come up.
