Use password to log in online, without hard coding it

[buorsa]

Hi Guys

I have written a code to get directly from the Excel file in a login on a web page. This works well.
However, I dont want my password to be hard coded in the VBA code.
I was thinking about adding password protection to the workbook and when i open it and enter the password it will automaticlly also use this password to log in on the web page. Is this possible, or do you have other ideas on how I could solve my problem

Thanks and Cheers
Luca

 

[gallen]

Could you post the code you DO have?

You could just have the password as an input box, but yes, password protecting the workbook would also achieve your goal.

 

[buorsa]

Sub login()
Dim appIE As Object
Set appIE = CreateObject("Internetexplorer.Application")
appIE.Visible = True
appIE.navigate "website"
    Do: Loop Until appIE.Busy = False
    Do: Loop Until appIE.Busy = False
    
With appIE.document
 .all("userid-input").Value = "username"
 .all("password-input").Value = "password"
 .all("uap-submit-button").Click
 
End With

End Sub

 

[gallen]

Something like this would work:

Sub login()
Dim appIE As Object
Dim sPassword As String


sPassword = Application.InputBox("Please Enter Password", "Password Entry")


If sPassword = "False" Then Exit Sub 'user clicked Cancel


Set appIE = CreateObject("Internetexplorer.Application")
appIE.Visible = True
appIE.navigate "website"
    Do: Loop Until appIE.Busy = False
    Do: Loop Until appIE.Busy = False
    
With appIE.document
 .all("userid-input").Value = "username"
 .all("password-input").Value = sPassword
 .all("uap-submit-button").Click
 
End With


End Sub