Мне нужно, чтобы только один диапазон "был скрыт от глаз навечно", а в другие можно было бы вносить изменения

А как Вы так сделали на диапазон? И можно тоже самое, но с паролем? Т.к. Ваш вариант можно обойти, сняв защиту - пароль-то не установлен.

Если можно продолжить тему. Прошел по ссылке которую The_Prist выложил в предыдущем посту и скачал вот такой интересный код по защите листов.  
 
Private Sub Workbook_Open()  
Dim wsSh As Object  
For Each wsSh In Me.Sheets  
Protect_for_User_Non_for_VBA wsSh  
Next wsSh  
End Sub  
Sub Protect_for_User_Non_for_VBA(wsSh As Object)  
wsSh.Protect Password:="1111", UserInterfaceOnly:=True  
End Sub  
 
И вот такая просьба, а можно в код добавить дату чтоб самому решить с какого числа она будет заблокированна

Ув. vikttur  сделал как вы подсказали и тут вышла вот какая фишка. Дело в том что макрос работает только на не защищенных листах, а те листы в которых была защита на определенные столбцы или ячейки (даже ставил тот же пароль "1111") макрос вообще не действует. Для чего мне это нужно?. После окончания месяца мы еще обрабатываем документы в течении 10-15дней и мне не столь важна что б кто-то переделал данные после, как то чтоб не могли воспользоваться таблицей (ну скажем конкуренты)мне нужна полнейшая блокировка всей книги.

{quote}{login=The_Prist}{date=13.07.2012 11:09}{thema=}{post}Вообще не понял в чем вопрос. Не это надо?{/post}{/quote}  
спасибо большое за ответ. Вы все верно поняли. Пройдя по вашей ссылке я сделал этот модуль, выполнил его и могу работать с этим защищенным листом, пользуясь услугами группировки. НО как только я закрываю файл, настройки сбиваются и приходится заново запускать этот модуль. Это не удобно, так как этот файл "путешествует" по разным странам))) не у всех есть возможность и желание делать какие-то модули. Посему нужно сделать так, чтобы группировка работала по умолчанию при залоченном листе (часть ячеек). Насколько я понимаю, это невозможно.

еще момент, лист можно будет переименовывать?

protect and struсture менял, тот же эффект.