Проверить через макрос - открыта ли книга?

[Nikson_iii]

Друзья, подскажите, пожалуйста, как через макрос проверить - открыта ли уже книга на этом или другом компе (в сети)?

Суть в том, что макрос в определенный момент времени открывает некую книгу, записывает туда данные, сохраняет и закрывает ее. На просторах интернета нашел макрос проверки на локальном компе:

Private Function OpenWorkbook(iName$) As Boolean
Dim iBook As Workbook
For Each iBook In Workbooks
If iBook.Name = iName$ Then
OpenWorkbook = True
Exit Function
End If
Next
OpenWorkbook = False

Но он, конечно же, не определяет, открыта ли книга на другом компьютере в сети. В итоге - Excel открывает файл только для чтения и не может записать туда данные (точнее не может сохранить в том же файле). Общей книгу сделать нельзя по причине отсутствия необходимой структуры данных.
Так что необходима проверка: если книга уже открыта - выдать сообщение типа "не могу работать, пусть сначала закроют книгу!"

[madmot]

Тут наверное необходимо использовать API функции
посмотри здесь http://am.rusimport.ru/MsAccess/topic.aspx?ID=123