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

  • Автор темы nikh848
  • Дата начала
N

nikh848

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

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

Vlanib

Гость
#2
Код:
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.