Проверка откртие книги

Nik_Koraman

Да да знаю что это не первая тема по данному вопросу, но подходящей для себя я не нашёл =(подскажите плиз, как проверить открыта ли книга?заранее спасибо
1 ответ

Nik_Koraman

> Автор: Nik_Koraman
Public Function CheckWorkBook(sBookName As String) As Boolean
Dim w As Workbook
CheckWorkBook = False
On Error GoTo labErr
Set w = Application.Workbooks(sBookName)
' Если книга открыта, значит ошибки не будет и вернётся True
' Иначе по ошибке переёдем на метку labErr и выйдем из функции с Fasle
CheckWorkBook = True
Exit Function
labErr:
End Function
Ы?