Добрый день, нужно организовать доступ к книге excel, защищенной пользовательским паролем.
excel 2013
Доступ организуется через ADO
делаю так
При открытии соединения появляется ошибка
"Не удается запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем"
Если обращаться к книге без пароля (убрав строки (;Password=111;User ID=Admin) все работает
excel 2013
Доступ организуется через ADO
делаю так
Код |
---|
Dim con_exc As New ADODB.Connection Dim rst_exc As New ADODB.Recordset 'подключение к ексел con_exc.Provider = "Microsoft.ACE.OLEDB.12.0" con_exc.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\база_пароль.xlsx" & _ ";Password=111;User ID=Admin;Extended Properties=""Excel 12.0 Macro;HDR=YES""" con_exc.CursorLocation = adUseClient con_exc.Open rst_exc.Open "Select Код from [Лист1$]", con_exc Debug.Print rst_exc.RecordCount rst_exc.Close con_exc.Close |
При открытии соединения появляется ошибка
"Не удается запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем"
Если обращаться к книге без пароля (убрав строки (;Password=111;User ID=Admin) все работает