Сертификат безопасности при доступе к web-узлу

[ss@sh]

Существует web-страничка, на которой три таблицы
Данные из третьей таблицы необходимо поместить на лист MS Excel, причём делать это нужно несколько раз в день.

Записал макрос в MS Excel который получает данные с web-странички, переделал его в процедуру.
Проблема в том, что web-узел постоянно запрашивает проверку подлинности и предлагает выбрать нужный цифровой сертификат из списка.

Private Sub ImportWebData() 

  ' создаём таблицу
  Dim importTable As QueryTable
  Set importTable = ActiveSheet.QueryTables.Add(Connection:="URL;https://web_адрес", Destination:=ActiveSheet.Range("a1"))

  ' параметры таблицы
  importTable.Name = "ImportData"
  importTable.FieldsName = True
  importTable.RowNumbers = False
  importTable.FillAdjacentFormulas = False
  importTable.PreserveFormatting = True
  importTable.RefreshOnFileOpen = False
  importTable.BackgroudQuery = True
  importTable.RefreshStyle = xlInsertDeleteCells
  importTable.SavePassword = False
  importTable.SaveData = True
  importTable.AdjustColumnWidth = True
  importTable.RefreshPeriod = 0
  importTable.WebSelectionType = xlSpecifiedTables
  importTable.WebTables = "3"  ' номер таблицы на web-страничке
  importTable.WebFormating = xlWebFormattingNone
  importTable.WebPreFormattedTextToColumns = True
  importTable.WebConcecutiveDelimitersAsOne = True
  importTable.WebSingleBlockTextImport = False
  importTable.WebDisableDateRecognition = False
  importTable.WebDisableRedirections = True

  '
  ' вот тут хорошо бы добавить код, который подсовывает нужный сертификат web-узлу

  '
  ' получение данных
  importTable.Refresh BackgroundQuery:=False

  ' удаляем ссылку на источник данных
  importTable.QueryTables(importTable.Name).Delete
End Sub

Подскажите, как это можно сделать программно?