Web Query Password Update Wanted

Option Explicit

Private Sub Workbook_Open()
    Dim uf1 As New UserForm1, ie As InternetExplorer
    
    Set ie = uf1.WebBrowser1
    ie.RegisterAsBrowser = True
    ie.Navigate "https://sedsh04.sedsh.gov.uk/esd/xsql/sys_getLogin.xsql"
    Do Until Not ie.busy And ie.ReadyState = 4: DoEvents: Loop
    
    uf1.Show vbModeless

    With ie.document
        .all("username").Value = "username"
        .all("password").Value = "password"
        .all("submit_button").Click
    End With
    
    Do Until ie.ReadyState = 4 And Not ie.busy: DoEvents: Loop
    
    MsgBox "Done"
    
End Sub

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.asecuresite.com", Destination:=Range("A1"))

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & sURL, Destination:=Range("A1"))

Private Sub WebQueryExcelQuestionsLocalFile(sOuterHTML As String)

    'Web query to get table containing list of threads on the MrExcel Excel Questions forum
    
    Dim sLocalHTMLFile As String
    
    sLocalHTMLFile = CreateLocalHTMLFile(sOuterHTML)
    
    'Original, as produced by Macro Recorder
    
    'With ActiveSheet.QueryTables.Add(Connection:= _
    '    "URL;http://www.mrexcel.com/forum/forumdisplay.php?f=10", Destination:=Range("A1"))
    
    'Modified version, using local file
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & sLocalHTMLFile, Destination:=Range("A1"))
        
        .Name = "forumdisplay.php?f=10"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingAll
        .WebTables = """threadslist"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
End Sub

Private Function CreateLocalHTMLFile(sOuterHTML As String) As String

    Dim iFile As Integer
    
    CreateLocalHTMLFile = GetTempDir & "WebOutput.htm"
    iFile = FreeFile
    
    Open CreateLocalHTMLFile For Output As #iFile
    Print #iFile, sOuterHTML
    Close #iFile

End Function

'http://chrisrae.com/vba/routines/gettemppath.html

Option Explicit

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
                (ByVal nBufferLength As Long, _
                ByVal lpBuffer As String) As Long

Const MAX_PATH = 256

Public Function GetTempDir() As String
    Dim sBuffer As String
    Dim lRetVal As Long

    sBuffer = String(MAX_PATH, vbNullChar)

    lRetVal = GetTempPath(Len(sBuffer), sBuffer)

    If lRetVal Then
        GetTempDir = Left$(sBuffer, lRetVal)
    Else
        GetTempDir = vbNullString
    End If
End Function