Есть код:
Dim xlFail As Excel.Application
Set xlFail = New Excel.Application

xlFail.Workbooks.Add

xlFail.Workbooks(1).Password = SetPassword
xlFail.Workbooks(1).Activate

xlFail.Workbooks.Open PathBD, 0, , , SetPassword, , True, , , , False

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & путь & ";Persist Security Info=False;Jet OLEDB:Database Password=" & SetPassword & ";"

Set Tdf = CreateObject("ADOX.Table")
With Tdf
.Name = "ExcelLink"
Set .ParentCatalog = cat
.Properties("Jet OLEDB:Create Link") = True
.Properties("Jet OLEDB:Link Provider String") = "Excel 8.0;HDR=YES;IMEX=2;PWD=" & SetPassword
.Properties("Jet OLEDB:Link Datasource") = PathBD
End With

'Строка конфликта
Cat.Tables.Append Tdf

Все выполняется хорошо. Но если еже открыт хоть один процесс Microsoft Excel то раскрывает это приложение и требует ввода пароля. Может кто знает как это обойти? Заранее спосиб.

White OwlА ты можешь объяснить что ты вообще пытаешься сделать?

Пытаюсь создать линк к запароленному xls, а есть другой способ?
White OwlЯ вообще удивляюсь что этот код работает :)
У меня все работает :)
White OwlСоздаешь зачем-то пустую книгу и забываешь про нее.
Не забываю, а открываю потому как JET OLEDB не может дешефрировать БД.
White Owl Открываешь сохраненную книгу через OLE а потом к ней же делаешь второй коннект через ADO.
А вот здесь прошу пояснить. Что такое через OLE? Открываю через Excel.Application(это не линк), а линк создаю через ADOX, через ADO линки с паролем создавать не умею, а есть способ?