Я, например, не знаю, как отследить "обращение" к Книге,- поэтому и не отвечаю. Как отследить изменение на листе знаю.

Отследить смену активной ячейки можно. Но ведь можно просматривать книгу не активируя другую ячейку.

Такое чуство,что сами себе создаем проблемы,а потом героически их решаем.  
Для нескольких пользователей есть режим общей книги,странно что он Вам не подходит.Другой вариант разбить книгу на несколько и каждый будет заполнять свою часть автономной,а ссылками собирать в одну (у меня на работе как правило используют данный вариант).  
На да ладно,то Ваше право.Теперь от лирики к делу.ИХМО есть тока один вариант:  
запускать механизм "самоуничтожения по времени", но при любом изменении листа его перезапускать.Можно и на другие евенты его повесить прижелании. Ниже приведенный код вставьте в модуль ЭтаКнига (ThisWorkbook).    
 
Да и еще.Я не проверил что будет если книгу закрыть как положено.По идее надо перед закрытие отлючать "самосохранятель".  
 
Private Sub Workbook_Open()  
If ThisWorkbook.ReadOnly = False Then Application.OnTime Now + TimeValue("00:10:00"), "ThisWorkbook.SaveAndReadonly",,False  
End Sub  
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  
If ThisWorkbook.ReadOnly = False Then Application.OnTime Now + TimeValue("00:10:00"), "ThisWorkbook.SaveAndReadonly",,False  
End Sub  
Sub SaveAndReadonly()  
'сюда вставить код сохранения и открытия только для чтения  
End Sub

результаты были видимо сногсшибательные :)  
приветствую коллеги, давненько я к вам на огонек не заглядывал  
позвольте продолжить эту благородную задачу - закрыть книгу через определенное время, чтоб и другие могли вкусить радость от общения с ней :)  
 
и так, есть такой кусок кода:  
Application.OnTime Now + TimeValue("00:30:00"), "CloseThisWorkbook"  
 
и соответственно к нему в довесок модуль:  
 
Private Sub CloseThisWorkbook()      
   ThisWorkbook.Save  
   ThisWorkbook.Close  
End Sub  
 
вопрос я вам, о премудрые в макросах, хотел задать следущий - а не затруднит ли вас прикрутить к вышеуказанной строчке (которая живет в макросе Private Sub Workbook_Open() и выполняет ряд полезных вещей) такую штуку...  
чтоб время, через которое книга закрывается, указывалось не в коде, а в ячейке, допустим в А1  
 
ЗЫ: как вы помните, я в кодах нибумбум :)

эээ... коллега, если я правильно понял, в ячейке А1 отображается время, которое осталось до закрытия книги? и оно всегда равно 30 минутам?  
прошу прощения, понимаю, неправильно поставленный вопрос ведет к неправильному ответу :)  
и так, корректирую вопрос изначальный:  
...чтобы время, через которое нужно закрыть данную книгу, ЗАДАВАЛОСЬ в ячейке А1 АКТИВНОГО листа, а не вписывалось вручную в тело макроса...  
 
типа так - открыл книгу, глядь, а в А1 вписано 10 (ну типа минут)  
нет, мало, надо больше и вписываешь 60 (тоже типа минут)  
и книга закрывается спутя эти свежеуказанные 60 типа минут  
 
вот как-то так  
 
еще раз прошу прощения за неточный вопрос