Web Query with login details

I want to create a web query with that will add info like (Account used, useame (emails), password)

I created a web query already. Please find below the code.

My problem is the fact that I have 5 accounts and I want to be able to logout and to login and I don't know how can I do this.

The code is ruing smoothly, but this is just because I used, when I created the macro with the recorder, my login details for one account.

I would like to know how can I change the code so I can login or logout.

With ActiveSheet.QueryTables.Add(Coection:= _
    "URL;https://xx/transummary", Destination:=Range("$A$1"))
    .CommandType = 0
    .Name = "transummary"
    .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 = xlWebFormattingNone
    .WebTables = "3"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With
End Sub