достал из закромов, автор неизвестен (две версии функции):  
_______________________  
 
как определить открыта ли книга    
Как из рабочей книги определить, открыта ли в текущий момент другая книга.    
 
Dim wbBook as workbook  
On error resume next  
set wbBook = workbooks("Книга1.xls")  
If wbBook is nothing then    
msgbox "Книга1 не открыта"  
else  
msgbox "Книга1 открыта"  
end if  
 
Function ifopen(wbName As String) As Boolean  
Dim wbBook As Workbook  
For Each wbBook In Workbooks  
If wbBook.Name <> ThisWorkbook.Name Then  
If Windows(wbBook.Name).Visible Then  
If wbBook.Name Like "*" & wbName & "*" Then ifopen = True: Exit For  
End If  
End If  
Next wbBook  
End Function  
 
Function ifopen(w As String) As Boolean  
On Error Resume Next  
ifopen = Workbooks(w).Name <> ""  
End Function

Такая модификация, проверил:  
 
Sub check()  
If ifopen() = True Then MsgBox "Open"  
End Sub  
 
Function ifopen() As Boolean  
Dim wbBook As Workbook  
For Each wbBook In Workbooks  
If wbBook.Name <> ThisWorkbook.Name Then  
If Windows(wbBook.Name).Visible Then ifopen = True: Exit For  
End If  
Next wbBook  
End Function

Добрый и Вам!  
 
Вот так:  
-----------------------------  
Private Sub Workbook_Open()  
   If Workbooks.Count > 1 Then MsgBox "Открыты ещё документы!"  
End Sub  
-----------------------------

Дъмитръ, а как быть с PERSONAL.xls? А у меня кроме него ещё 2 книги постоянно висят, невидимые...

Lusi, не забудьте про Personal и другие скрытые книги, которые могут быть у юзеров.

Уважаемый Hugo  
Я бы и Ваш вариант с радостью попробовала (может и Вас расцеловала бы)но куда не приткну код ...не работает...Вот не задача...

В    
 
Private Sub Workbook_Open()  
If ifopen() = True Then  
MsgBox "Открыты другие книги!!!"  
Else  
MsgBox "Расслабься!"  
End If  
End Sub  
 
В стандартный модуль:  
 
Function ifopen() As Boolean  
Dim wbBook As Workbook  
For Each wbBook In Workbooks  
If wbBook.Name <> ThisWorkbook.Name Then  
If Windows(wbBook.Name).Visible Then ifopen = True: Exit For  
End If  
Next wbBook  
End Function

Раз уж заготовил - смотрите.

Нет Игорь, таки "0" :)  
 
Дмитрий (The_Prist), очень коротко и ясно, спасибо! ;)

А что - счётчик не может быть Long?

Long инициализируется зато быстрее, чем Integer :-)

Доброе утро всем..  
Огромное спасибо Дъмитръ  
Как обещала мой поцелуй для Вас...(и вам Hugo за желание помочь Дъмитръ)  
Таке же огромное спасибо всем кто поддержал мою тему...  
Хочеться продолжить немного эту тему..Есть вопрос..  
А как сделать так что бы проверка была не всех (в общем) открытых файлов...а конкретных.Например есть у меня на компе 4файла..этими файлами пользуются многие.Захотела я перезагрузить комп и мне приходиться спрашивать работает кто в данный момент или нет..Я хочу создать файл в котором прописать проверку на открытие этих 4 файлов.Открываю я файл а там выскакивает окно (ну форма например или сообщение)в котором написаны имена этих 4 файлов и какие открыты или закрыты из них...

Откройте их сами. Если удалось - можно смело перезагружаться.

Не закрывайте, так и перезагружайтесь :)