Релиб / Программирование / VBA / Workbooks Open Pass / Latest Posts

RE: Workbooks Open Pass

Михря — Fri, 24 Aug 2007 11:03:41 GMT

Public Function OpenI(i, openIP)
Dim mypass As Object
On Error GoTo OpenI_Error

Set mypass = Workbooks.Open(Filename:=p(i), Password:="", IgnoreReadOnlyRecommended:=True)
openIP = True
Exit Function

OpenI_Error:
openIP = False

End Function

RE: Workbooks Open Pass

Михря — Thu, 23 Aug 2007 19:54:16 GMT

тоже не понятно с перехватчиком ошибок. если делать каждый шаг с ф8, то ошибочный пас летит в обработчик, если на автомате то вылетает ошибка!

RE: Workbooks Open Pass

Михря — Thu, 23 Aug 2007 18:24:38 GMT

блин засада.
Пробую первое решение метод ActiveWorkbook.HasPassword
не работает потому, что:
часть кода:
.................
Workbooks.Open Filename:=p(i) 'сначала открываем, выскакивает окно с пассом и до if дело не доходит.

If ActiveWorkbook.HasPassword = True Then
i = i + 1
GoTo Line1
End If
......................

Второй вариант выдает ошибку уже не EXCel а VBA,
"P(2058) 1004 was generated by Microsoft Office Excel Неверный пароль. Убедитесь, что отключена клавиша CAPS LOCK и используется правильный регистр."

RE: Workbooks Open Pass

bazile — Thu, 23 Aug 2007 16:36:58 GMT

Здесь советуют указать пустой параметр Password при открытии книги и перехватывать ошибки.

RE: Workbooks Open Pass

babken76 — Thu, 23 Aug 2007 16:20:39 GMT

True if the workbook has a protection password. Read-only Boolean.

Remarks
You can assign a protection password to a workbook by using the SaveAs method.

Example
This example displays a message if the active workbook has a protection password.

If ActiveWorkbook.HasPassword = True Then
MsgBox "Remember to obtain the workbook password" & Chr(13) & _
" from the Network Administrator."
End If

С уважением,

RE: Workbooks Open Pass

Михря — Thu, 23 Aug 2007 15:10:15 GMT

[quote][b]Михря (23.08.2007)[/b][hr]
как при открытии файла указанным выше методом отключить обновление связей.
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever не помогает.[/quote]

Сам спросил, сам ответил.
Application.AskToUpdateLinks = False

RE: Workbooks Open Pass

Михря — Thu, 23 Aug 2007 15:02:27 GMT

Ещё вопросик по теме.
как при открытии файла указанным выше методом отключить обновление связей.
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever не помогает.

Workbooks Open Pass

Михря — Thu, 23 Aug 2007 13:28:01 GMT

Есть проблемка, а идей по её решению нет.
Может мозговым штурмом можно её решить. Суть проблемы:
VBA открывает файл тянет из него нужную инфу и закрывает без сохранения. функция сделана через for __ to, но когда этот гад натыкается на файл защищённый паролем всё встает намертво. Вопрос, такой как сделать проверку на наличие пасса и в случаи наличия не открывать файл?
кусок кода:

For i = 1 To 62511

On Error GoTo ErrorHandle:
DoEvents

Workbooks.Open Filename:=p(i)
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

Call Module2.Listg(re2, lists)

If lists = True Then

Workbooks(FIMP2).Worksheets("Лист1").Rows("1").EntireRow.Insert
......... и т.д.
i=i+1
next i