Excel это не сложно

Добрый день!
У меня следующая задача - таблица берет данные с таблиц Google. Настроено два запроса. Если нажимаю "Обновить все", то иногда выпадает такое окно "Доступ к веб-содержимому" и требует ввести учетные данные.
(https://www.excel-vba.ru/forum/index.php?action=dlattach;topic=5698.0;attach=5925;image)
Иногда окно может выпасть только на 100 раз, а иногда выпадает всегда при обновлении второго запроса.

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

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