PowerQuery и Google Docs

Добрый день!
У меня следующая задача - таблица берет данные с таблиц Google. Настроено два запроса. Если нажимаю "Обновить все", то иногда выпадает такое окно "Доступ к веб-содержимому" и требует ввести учетные данные.

Иногда окно может выпасть только на 100 раз, а иногда выпадает всегда при обновлении второго запроса.

При обновлении запросов макросом окно не появляется, но и данные не обновляются. Как можно проверить, обновились ли данные? И если не обновились, то попробовать снова (как вариант установить ограничение на количество попыток, что бы не зациклился макрос).

Код: (vb)

Sub RefreshAllQuery()
On Error GoTo ErrorHandler
Dim oc As Object, IsBG_Refresh As Boolean

  Application.DisplayAlerts = False

  For Each oc In ThisWorkbook.Connections
    IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
    oc.OLEDBConnection.BackgroundQuery = False

    BackToRefresh:
    oc.OLEDBConnection.Refresh
  Next
  Application.StatusBar = False
  Application.DisplayAlerts = True      
  Exit Sub

ErrorHandler:
  Debug.Print "ErrorHandler " + oc.Name
GoTo BackToRefresh
End Sub