单击Excel文件中的按钮，使用VBA（用户名、密码）从WordPress上的文件刷新数据

我有一个Excel文件，在表格中有一个按钮，数据将从WordPress网站的文件中加载。我已经实现了这个VBA cide，但即使没有任何凭据，它也可以直接从链接下载

Sub DownloadFile()
Dim myURL As String
myURL = "http://www. **.com/wp-content/uploads/ExportFiles/data.xlsx"
Dim username As Variant
Dim password As Variant
username = InputBox("Enter Username")
password = InputBox("Enter Password")

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, username, password
WinHttpReq.send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then 
     Set oStream = CreateObject("ADODB.Stream")
     oStream.Open
     oStream.Type = 1
     oStream.Write WinHttpReq.responseBody
     oStream.SaveToFile "E:\data.xlsx", 2 ' 1 = no overwrite, 2 overwrite
     oStream.Close
End If

Dim ws As Worksheet
Dim filter As String
Dim targetWorkbook As Workbook, wb As Workbook
Dim Ret As Variant

Set targetWorkbook = Application.ActiveWorkbook


'If Ret = False Then Exit Sub
Ret = "E:\data.xlsx"
Set wb = Workbooks.Open(Ret)

wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)

ActiveSheet.Name = "DATA"

---

End Sub

问题是什么？问题是即使凭据错误，它也在从网站提取数据…我想从Excel控制从该VBA的登录，到WordPress下载文件有什么问题？问题是，即使凭据错误，它也在从网站提取数据…我想控制从Excel的VBA登录到WordPress下载文件