Muito bom dia a todos!

Estou tentando transferir dados de uma página http://www.bmfbovespa.com.br/sig/FormCo ... dCtrl=160# para o Excel e tanto de forma manual (Menu "Dados" > "Obter Dados Externos da Web"), quanto através de uma macro, que abaixo reproduzirei, dá sempre a mesma mensagem: "Não é possível transferir as informações solicitadas". Procurei na internet, porém nada que explique o motivo deste erro. Se fosse uma página com login e senha eu até entenderia, mas não é. Olhando nas propriedades da página, ví que tem uma propriedade " Modo Protegido Ativado". Seria este o motivo?

O código que tentei utilizar para baixar estes dados:

Sub testaando()
Sheets("Plan1").Select
Range("A2").Select
              With ActiveSheet.QueryTables.Add(Connection:= _
       "URL;http://www.bmfbovespa.com.br/sig/FormConsultaMercVista.asp?strTipoResumo=RES_MERC_VISTA&strSocEmissora=WHRL&strDtReferencia=12-2011&strIdioma=P&intCodNivel=2&intCodCtrl=160#", _
       Destination:=Range("a1"))
          .BackgroundQuery = True
          .TablesOnlyFromHTML = True
          .Refresh BackgroundQuery:=False
          .SaveData = True
          End With
   End Sub

Se alguém puder me ajudar ficarei imensamente grata.