можно через wb.activate и on error resume next

Сергей, недавно подымалась тема с Вашим вопросом, наберите в поиске "UserStatus" (код от уважаемого The_Prist).

Да, Не открывая книгу, узнать, не открыта ли она (режим "для чтения" не устраивает).  
Спасибо за подсказки, щас попробую userstatus

Option Compare Text 'Если Вы не понимаете, зачем используется эта инструкция, то оставьте её в покое    
 
Private Function WorkbookIsOpen(iName$) As Boolean    
'***********************************************'    
'   Дата создания 01/01/2005    
'   Автор Климов Павел Юрьевич    
'   http://www.msoffice.nm.ru    
'***********************************************'    
   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  
 
Private Function WorkbookIsOpen(iName$) As Boolean    
'***********************************************'    
'   Дата создания 01/01/2005    
'   Автор Климов Павел Юрьевич    
'   http://www.msoffice.nm.ru    
'***********************************************'    
   Dim iBook As Workbook    
   For Each iBook In Workbooks    
       If StrComp(iBook.Name, iName$, vbTextCompare) = 0 Then    
          WorkbookIsOpen = True    
          Exit Function    
       End If    
   Next    
   WorkbookIsOpen = False    
End Function  
Вариант II.    
Private Function WorkbookIsOpen(iName$) As Boolean    
'***********************************************'    
'   Дата создания 01/01/2005    
'   Автор Климов Павел Юрьевич    
'   http://www.msoffice.nm.ru    
'***********************************************'    
   On Error Resume Next    
   WorkbookIsOpen = IsObject(Workbooks(iName$))    
End Function  
 
Private Function WorkbookIsOpen(iName$) As Boolean    
   On Error Resume Next    
   WorkbookIsOpen = (TypeOf Workbooks(iName$) Is Workbook)    
End Function  
 
Private Function WorkbookIsOpen(iName$) As Boolean    
   On Error Resume Next    
   WorkbookIsOpen = (TypeName(Workbooks(iName$)) = "Workbook")    
End Function  
 
Private Function WorkbookIsOpen(iName$) As Boolean    
   On Error Resume Next    
   WorkbookIsOpen = (VarType(Workbooks(iName$)) = vbObject)    
End Function  
 
Private Function WorkbookIsOpen(iName$) As Boolean    
   On Error Resume Next    
   WorkbookIsOpen = Len(Workbooks(iName$).Name) > 0    
End Function  
 
Private Function WorkbookIsOpen(iName$) As Boolean    
   On Error Resume Next    
   WorkbookIsOpen = Workbooks(iName$).Index > 0    
End Function  
Пример вызова любой из вышеопубликованных авторских функций :    
Private Sub Test()    
   MsgBox WorkbookIsOpen("Имя_Книги.xls")    
End Sub

Мужики, я так понял, что книга расшарена и лежит на серваке, но общий доступ в ней не разрешён.  
Очевидно, что Сергею не хочется ДАЖЕ ПРОБОВАТЬ открывать эту книгу по каким-то причинам (это его дело, по каким) в случае если она уже открыта кем-то другим.  
Ну, брезгливый он, капример :-)  
Тогда может прокатить такой вариант:  
1. В AutoOpen этой книги прописываете процедуру записи в те её Properties, которые видно даже без открытия файла, какого-нибудь заранее оговоренного свойства (ну, например,комментария). И сразу же там же - сохранение книги.  
2. В AutoClose этой книги прописываете удаление этого комментария перед сохранением.  
3. В своём Personal пропишите Ёкселю, чтобы попытке открыть любой файл сначала читаел у него комментарий и по нему уже определял, открыт файл кем-то или нет.

Забил  
 
Dim asUsersAs String  
asUsers = Workbooks(путь с диском, каталогом).UserStatus  
 
сразу же выдал ошибку 9

Сергей, а почему вы не хотите открыть книгу, заблокировав сообщения Application.DisplayAlerts = False,  
потом проверить её UserStatus и если он вас не устраивает, сразу её закрыть и опять разрешить сообщения?

Нашел тему, см. внимательно: http://www.planetaexcel.ru/forum.php?thread_id=21319&page_forum=2&allnum_forum=45

С Workbook_Open работает.  
После того как Файл открыл Userstatus заработал. Теперь наверно нужно количество юзеров посчитать и про них msgbox написать.

Да, смотрел. Спасибо.  
 
Вроде получилось (всё-таки с открытием файла, а не без этого).  
Всем спасибо за участие в решении.

а где ставится непосредственно этот флаг lock ?  
 
если позволите ..:)

Эксклюзтвный доступ к папке, файлу или к его части операционная система предоставляет для запросившего процесса. Такой доступ снимается либо по команде Unlock из этого же процесса, либо автоматически через некоторое время после закрытия процесса.