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.
Is there any way achieve this using VBA?
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 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
code below, I need :
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
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?
View 14 Replies View RelatedI 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?
View 9 Replies View RelatedI 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 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 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 have Excel Sheet that open with user name and password.
Like if it's open my Admin - he can view all Sheets
If open by any user - it opens only users sheet.
Problem is once file is saved by any users, all hidden files get unhidden and Admin Sheet is open.
Requirement: if User1 saves file other sheets should not get unhidden.
I have a thousand names on a column, and I have a several worksheet tabs as locations, such as CA, AZ, TX, and NY.
All names goes to main worksheet, show like this
apitchford 10 100 123
bkishpaugh 9 211 123
blee 14 234 111
cbonny 21 125 412
I need to pull a specific name, example, name = blee, move that name with all data on that row into TX.
I will need to set as automatically, becuase the names add and delete on the main worksheet, and will auto update those tab worksheets. (make sense?)
I have tried INDEX and MATCH, but they keep putting one data in, not all data.
When opening a new Excel file, it is asking me for a password to an old excel file that was password protected, which I have deleted from my computer. It is still asking for this password every time I open a new or existing file. When I hit cancel it lets me open the file.
View 11 Replies View RelatedI have a spreadsheet, which has certain worksheets that are password protected. I need to make changes to some of the formulas, and the VBA modules, however I cannot remember the password!! Is there a way of identifying the password??
View 3 Replies View RelatedI'm currently working on that requires me to compare and update between two different workbooks, "MyData" and "Daily".
As the names imply the first is an ongoing database the second "Daily" is upto date information that arrives each morning. In both workbooks there is a column that contains unique data/serial number.
I have written some code that compares these numbers, if they are the same the new upto date information overwrites the original information (replaces entire row), if the serial number is new it adds it as a new entry in the last row.
Well so far so good, actually I have only managed to do this on the same worksheet, but it does work.
As there is a lot of data I'm looking for the fastest way to "look" for this information should I compare between the two open workbooks line by line, should I copy all of the data from the "Daily" to a worksheet in "MyData" and work from there.
handling blank input box
If I do this:
My current code opens a file ("Report01.CSV") from the directories in column A (one at a time), and copies data into sheet 2.
The problem is that sometimes there is no ("Report01.CSV") file in one or more of the directories.
What I would like to add is an error handler that would remove the directory (delete that cell) that caused the error and continue with the loop. I.e. resume importing data from the other directories.
CODE:
Dim wrkMyWorkBook As Workbook
Dim lngRow As Long: lngRow = 1
Dim lngColumn As Long: lngColumn = 2
Do Until Sheets("Sheet1").Range("A" & lngRow).Value = vbNullString
Set wrkMyWorkBook = Workbooks.Open(Filename:=Sheets("Sheet1").Range("A" & lngRow).Value & "" & "REPORT01.CSV")
lngRow = lngRow + 1
[Code] ......
My worksheet takes a time feed in the format '00:01:05' and I want to trigger an event when it goes to negative (eg, -00:01:05). But I have no idea how to handle it.
View 9 Replies View RelatedI am havng problems with the belwo macro code -
Range("G7").Select
Selection.Copy
Workbooks.Open Filename:= _
"Q:PublicPAYMENTS Q&RREPORTSSuspense Activity BUSINESS2008 - Suspense BUSINESS - Activity Reports2008 Avon.xls"
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
When i open the workbook it requires me to insert a password, i tried to type this but excel will not follow keystrokes, i then inserted the password in cell G7 which i then copy and paste, which you can see the copy at the beginning of the macro.
Is there a way where you can get it to insert the password so i can open the workbook in a macro.
What im trying to do is save 26 suspense spreadsheets by just clicking on a macro.
I am trying to handle an error. It works the first time but when it runs in the same error again it does not go to the error handling.
[Code].....
The On Error GoTo works if there is only one instance of the text not being found but crashes if there is a second.
I have tried adapting code found here http://www.excelforum.com/excel-prog...ght=cells.find but can't get it to work exactly as i would like.
Here is an extract of my code. There are about 12 different cells.find in total.
The issue I'm having is with the ActiveX Spin Button (in 2007, formerly in the Control toolbox in 2003). I need the Spin Button to call a certain macro whenever it is clicked up or down. I know how to do this with one spin button, the problem is that the workbook I'm creating could potentially have dozens (or even hundreds) of these spin buttons that all need to call the same macro. It doesn't seem feasible to have to create separate Change event functions for each of these.
My company used to use the simpler form controls for this process, but a situation has come up where we need the ability to make the buttons invisible, or at least appear disabled, and that doesn't seem doable with the form controls.
So my question is, is there a way to specify in my workbook that whenever a spin button is clicked, this particular macro is to be called? Or even, whenever an ActiveX object is clicked, call the macro, because the spin buttons will be the only ActiveX objects in the workbook. I've read a bit about how to create global event handlers for worksheets and workbooks, but I can't find anything related to spin buttons specifically.
I have attached a sample spreadsheet. I'm looking for a macro that will take column one which contains Company names which are sometimes duplicated and append an incremental number based on the number of occurrences to the end of the company forcing it to be unique. Column 2 has the example of the results I would like to see. Has anyone got a macro that I could use that would allow me to select the company column, run the macro, and it update the values in that column to append the incremental number?
View 3 Replies View RelatedIn my current project, I have set up a worksheet with 15 comboboxes (dropdown lists).
To trigger change events, I use :
Private Sub ComboBox1_Change()
....
End Sub
So, I have 15 such routines defined to cover all comboboxes. By doing so, my code becomes quite large
I am wondering if there is not a more efficient way to handle this.
I recorded a macro to save a worksheet as a PDF file
It works fine, except when the PDF file is already open - Excel returns an error message and stops.
Can I use some error handling code to prevent the error, maybe bring up a msgbox and exit the sub at the point where the error occurs?
The part of the code where it stops is:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:UsersDaveDesktopTestingDemo List.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
I am writing a code in VBA using getpivotdata function. It is working fine untill the value does not exist.
Dim pt As PivotTable
Sheets("Pivot2").Select
Set pt = ActiveSheet.PivotTables(1)
Cells(2,1).Value = pt.GetPivotData("ID", "GCB", "1", "Gender", "F", "9 box Rating_2012", NBArr(k)).Value
'the code is looping through the values in an array called NBArr
I have tried to handle this as follows:
If IsError(pt.GetPivotData("ID", "GCB", GCB1, "Gender", Gen1, "9 box Rating_2012", NBArr(k)).Value) = True Then
Cells(2,1).Value= "0"
ElseIf IsError(pt.GetPivotData("ID", "GCB", GCB1, "Gender", Gen1, "9 box Rating_2012", NBArr(k)).Value) = False Then
Cells(2,1).Value = pt.GetPivotData("ID", "GCB", GCB1, "Gender", Gen1, "9 box Rating_2012", NBArr(k)).Value
End If
However, even this is not working (in case when the function finds no value).