Как пропустить открытие книги, если она кем то открыта?

[nikh848]

Привет всем!
Помогите пож. решить задачу:
Открыть книгу Excel для редактирования, но если она открыта другим пользователем -
не открывать для чтения, а записать в ячейку - имя работающего пользователя и перейти к следующей книге.

Прописываю:
Set ОткрытаяКнига = Workbooks.Open(Путь, 0, False, , , , True, , , , False)
но всо равно спрашивает "открыть для чтения?"

 

[Vlanib]

Public Function fBookOpen(sBookName As String) As Boolean
Dim oBook As Workbook
On Error Resume Next
Set oBook = Workbooks(sBookName)
fBookOpen = (Err = 0)
End Function

Если книга с указанным именем открыта, функция вернет TRUE, иначе - FALSE.