Блог

Когда мои пользователи впервые регистрируются в Azure, они видят это окно.

Сигинвиндо

Они ДОЛЖНЫ выбрать учетную запись Майкрософт и ввести свои учетные данные, чтобы иметь возможность подключиться. Проблема, с которой я сталкиваюсь, заключается в том, что они выбирают любые другие параметры ( Windows и базу данных). Они могут ввести свои учетные данные, не могут подключиться, но экран регистрации больше не появляется. Мне приходилось каждый раз вручную сбрасывать его.

Вот код для просмотра исходного окна входа в систему

 Sub TestConnection()   Dim lTest As Long  Dim cn As WorkbookConnection  ThisWorkbook.Queries.FastCombine = True   'DisplayOff  UnprotectPass "MainSheet"  For Each cn In ThisWorkbook.Connections  If InStr(cn.Name, "CheckConnection") gt; 0 Then  'MsgBox (cn.Name)  lTest = InStr(1, cn.OLEDBConnection.Connection, "Provider=Microsoft.Mashup.OleDb.1", vbTextCompare)  If Err.Number lt;gt; 0 Then  Err.Clear  Exit For  End If  If lTest gt; 0 Then cn.Refresh  End If  Next cn  End Sub  

С кодом проблем нет, я просто не могу вернуть окно входа в систему, когда вводится неверная информация.

Вот ошибки, когда пользователи выбирают базу данных или Windows для входа:

• Ошибка времени выполнения 1004: [Источник данных.Ошибка] Microsoft SQL: Не удается открыть сервер «XXX», запрошенный при входе в систему. Ошибка входа в систему
• Ошибка времени выполнения 1004: [Источник данных.Ошибка] При чтении данных от поставщика произошла ошибка: «Не удалось загрузить файл или сборку» системы.Предприятие-сервис»…

Я попытался выполнить простую обработку ошибок с помощью Err. Число =1004, и это не работает.

Я попытался записать макрос, но это невозможно в Power Query.

У кого-нибудь есть какие-нибудь предложения? На данный момент я открыт для всего. Здесь более 1000 пользователей…

Я буду вечно благодарен.