все листы суперскрыть, оставить один с обидной надписью(или пиктограммой, чтобы охватить неграмотных)

{quote}{login=T@nd@}{date=03.10.2008 02:10}{thema=}{post}слэн, спасибо, все гениальное просто{/post}{/quote}  
 
помогите пожалуйста.  
у меня сейчас стоит такая же задача - надо чтобы данные рабочей книги были недоступны в случае, если пользователь при открытии файла нажимает disable macros.  
в случае, если enable macros - он может работать в документе...  
это возможно?  
 
БУДУ ОООООЧЕНЬ БЛАГОДАРНА НА ПОМОЩЬ

{quote}{login=Genyaa}{date=05.12.2008 06:45}{thema=}{post}Уверен, что здесь уже были примеры...  
 
Но вот мой вариант... Конечно, стоит дополнить его защитой паролем проекта VBA и, возможно, самой книги.  
 
Тестировал совсем немного. Могут быть и ошибки.{/post}{/quote}  
 
Спасибо вам большое за помощь.  
Просидела все выходные - пыталась соединить 2 макроса: для одноразового пароля (тоже Вы мне помогали) и тот макрос, который был в файле для обязательного включения... не получается((  
можете помочь?  
мне нужно, чтобы при переходе на страницы veryhidden - файл запрашивал пароль (одноразовый или мастер..)  
БУДУ ВАМ ОЧЕНЬ ПРИЗНАТЕЛЬНА!  
 
П.С.а вы можете мне еще объяснить, пожалуйста, как сделать файл veryhidden?  
 
П.П.С.Вот макрос, который я пытаюсь "засунуть в файл"  
Private Sub Workbook_Open()  
   Dim i As Long  
   i = Application.InputBox("Введите пароль", , , , , , , 1) + 0  
   If i = Worksheets("par").Cells(1, 1).Value Or _  
       i = 1234 Then '<=====мастер-пароль  
       i = Int(Timer)  
       Worksheets("par").Cells(1, 1).Value = i  
       Sheets("1").Visible = True  
       ThisWorkbook.Save  
         
   Else  
       MsgBox "Íåâåðíî!"  
       ThisWorkbook.Saved = True  
       ThisWorkbook.Close  
   End If  
End Sub  
 
СПАСИБО!!!!!