При попытке открыть книгу Excel из кода в программе access

Set xlBook = xl.Workbooks.Open(Patch_Copy_JKH & GLB_Personal_Account & ".xls")
Set xlSheet = xl.Worksheets("Чек")
xlSheet.Activate
xl.Application.Visible = False

Excel сообщает, что книга уже открыта, и если открыть её второй раз, то возможна потеря изменённых данных.

Как проверить - стоит ли открывать книгу, или она уже открыта.
И если она уже открыта, то правомерны ли будут манипуляции с книгой ?

--------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1244026/kak-uznat-otkryta-li-kniga-excel