I am looking to further improve this code by adding the functionality of logging to a secure HTTPS server using username and password.
'This code will test a web address to see if a file exists
'If the file exists, it will download the file.
' It's a mixture of code retreived from 2 sites:
I have a spreadsheet which I used in a previous job, which was set up by our old IT Department. Basically, it allows me to save information onto it, which I can then retrieve, (in any conditions/search fields i.e. in a date range etc) but the problem is; when I try to use it on my laptop, I look at the editor used for macros, I can see that the spreadsheet is linked to the servers of my old company. Therefore, I cannot use it myself
I do not know a lot about macros etc. but I can send a copy of the spreadsheet to anybody who is willing to help!
I think it is just a case of changing the macros/strings of where to draw and save information to/from, but I don;t know.
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"
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
I am quite new to the excel vba. I am trying to create a login screen
So whenever i open my excel sheet, the first thing should happen is that there should be a login screen and ot should ask for password and id. Once you provide the login id and password, you would proceed to the next screen.
I have an excel file where different people have to make their comments. So far I have sent out the files on email and they sent it back and then copied their comments to the original file, but from now on I would like to share the file and let them to write in their comments.
In order to make it professional I would like the file to work as following (lets suppose that I am Mr.X and I have to write my comments in row 2,6 and 9):
1. When I (Mr.X) open the excel file, there is a pop up message box with a drop down list saying: "Please select your name:"
2. In the drop down list I select my name (Mr.X) and I press OK.
3. Then I get logged in the file and I will see rows 2,6 and 9 only.
4. After making my comments I save the file and log out.
As for the example lets assume that there are 3 people who are making the comments. Mr.X /rows 2,6 and 9/, Mr.Y /rows 1,3 and 8/ and Mr.Z /rows 4,5 and 7/
I've been looking around for a way for Track Changes to reference the loggedin username of the workstation rather than the name in Excel registration.
I found this Function UserNameWindows() As String UserNameWindows = Environ("USERNAME") End Function
: on this board and another blog.
But I don't know how to enter it to make this work. I had read you make it a new module and assign a formula, but the most I could get through was opening the VBA editor for the workbook, creating a new module, and pasting the code. Changes would still reference the Excel registration name, not the Windows' logged in username.
I'm trying to use the CreateObject("MSXML2.XMLHTTP") technique to log in to my Amazon Seller Central account and extract the HTML page source of the URL. However, I simply haven't been successful with getting it to log in. I should note that I know very little about this technique, and simply copied and slightly modified the code from a website. It works when there is no log in. Here's an example of the
This is the code I use to get the page source when I don't need to log in. However, the URL I'm now trying to get to requires me to log in first. I've come across a couple different sites that offer the following techniques:
So I have some data that I'd like to extract from some financial sites that I'm a member of (one in particular is investors.com). I try and pull stock info from the site, but I have to manually initiate a new web query, go to the website, login, then cancel the web query for the macro on my spreadsheet to start pulling information. What I'd like to do is have two cells referencing my user id and password, and then click a button that will goto the website from excel, login, and allow the extraction of financial info to occur.
I'm trying to open a file from server.After doing all the changes I have to save the file back to the server in the same name. It is asking for save as option.it shouldn't. I want to save the file in the same path and in same name without asking the option of "Save as". I hv full permission for editing the file
I try to run a macro on my workbook everytime I open it by getting the data from the ftp file. This will be the service number for my customer. Both the excel and the data file are located in the ftp, so that I can retrieve the file wherever I go. Basically I got some code from the internet which work fine on the local network, but once it come to ftp server I am stuck there.
Public Function NextSeqNumber(Optional sFileName As String, Optional nSeqNumber As Long = -1) As Long Const sDEFAULT_PATH As String = "Ftp://mycompany.com" Const sDEFAULT_FNAME As String = "Service.txt" Dim nFileNumber As Long nFileNumber = FreeFile If sFileName = "" Then sFileName = sDEFAULT_FNAME If InStr(sFileName, Application.PathSeparator) = 0 Then _ sFileName = sDEFAULT_PATH & Application.PathSeparator & sFileName If nSeqNumber = -1& Then If Dir(sFileName) <> "" Then Open sFileName For Input As nFileNumber Input #nFileNumber, nSeqNumber..................
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 worksheet that is going to be used my approx. 10 people at my company. I want to give access to certain menus to a few people and other menus to others. I have 2 custom menus. One is for each group, but I don't want to allow access to the other groups menu. Is there a way to create a way of logging in via username and password so that excel can display only the correct set of menus depending on who is using the sheet at the time? I think there is a way that excel can recognize the windows login and password for each person and maybe I can use that? If so, how do I then set it up to display only the correct menus to certain users?
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 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"...........
We have a number of internal office servers (Active Directory - Exchange - SharePoint "free" etc etc usual stuff) and I need to create an uptime/downtime calculator in excel with the facility to record the information on a daily, monthly and yearly bases but not sure how to go about this.
I would like a way to record on a daily bases what the uptime/downtime has been for each server and then to record the same for that month in a percentage.
For example in a 24hr period for each month of the year:
For that day Active Directory Server was UP for 24hrs. (100% uptime) - (0% downtime) X by the number of days in the month i.e. Over the month Active Directory has been UP for. (XX% uptime) - (XX% downtime)
Exchange Server was DOWN for 1hrs. (95.833% uptime) - (x% downtime) X by the number of days in the month i.e. Over the month Exchange has been UP for. (XX% uptime) - (XX% downtime)
SharePoint Server was DOWN for 1hrs. (95.833% uptime) - (x% downtime) X by the number of days in the month i.e. Over the month SharePoint has been UP for. (XX% uptime) - (XX% downtime)