Copy CSV file from URL(HTTPS) and paste in existing workbook should prompt for creds

[koilkuntla]

Hi This is what i am trying to do.

I need to copy a csv file from URL (HTTPS) and paste in a existing workbook. I wrote below macro which is functioning properly being in the network. If someone execute same macro from outside the network it is not working.

I want to change below macro to prompt for credentials for username and password so that it could authenticate. Any help would be appreciated.

Sub transfercsv()
sCSVLink = "xxxxxxxxx"
ssheet = "CSV Transfer"

Set wnd = ActiveWindow
Application.ScreenUpdating = False
Sheets(ssheet).Cells.ClearContents
Workbooks.Open Filename:=sCSVLink
Windows("Download").Activate
    Cells.Select
    Selection.Copy
    Windows("Applications.xlsm").Activate
    Sheets("CSV Transfer").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
       
    Application.DisplayAlerts = False
    Windows("Download").Activate
    ActiveWindow.Close
    Application.DisplayAlerts = True
    Sheets("Main Page").Activate
    
End Sub