Проверка открыт ли файл в сети

[Klim Bassenger]

Есть функция, которая проверяет открыта нужная книга или нет:

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

Но проблема в том, что она работает только на том компе, с которого открыта... Если файл находится в сети, то файл (если он открыт уже кем-то с другого компа) открывается с аттрибутом "для чтения"..
Подскажите как мне проверить открыт ли файл другим пользователем, если файл находится в сети!!!
Спасибо!

[аналитика]

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

Public Sub OLD_NEW()
   Dim OldName, NewName
   On Error Resume Next
   OldName = "C:\Код.xls"
   NewName = "C:\Testing\Код.xls"
   Name OldName As NewName
   If Err <> 0 Then ...
End Sub

[doober]

Нет,копировать можно.А переименовать или удалить открытый файл не получится

Прошу прощения Александр.невнимательность.Мне показалось .что копируешь.

[IgorGO]

а еще попытаться удалить!!!
если не удалось - значит был занят, а удалось - был свободен)))

[Klim Bassenger]

Сообщение от IgorGO

а еще попытаться удалить!!!
если не удалось - значит был занят, а удалось - был свободен)))

А потом, если удалось восстановить из карзины....
Только вот проблема: на сервере файлы сносятся напрочь миную карзину...
Так что может есть другой способ..
Единственное, что пришло мне в голову - это открывать нужные файл черещз другой...
То есть в auto_open прописываем проверку ячейки. скажем А1... если там стоит 1, то ничего не делаем и закрываем файл без изменений, ну а если 0, то записываем в А1 единичку, сохраняем, закрываем его, а открываем уже нужный...
немнго сложновато, но вроде должно сработать....
Может есть более элегантный способ???