защита листа

[clown86]

Ребята помогите если кто то сможет. Заранее благодарю. Наткнулся здесь на ветку (http://www.programmersforum.ru/showthread.php?p=647603) где с помощью макроса закрывают редактирование ячеек (кроме защищенных) при этом есть возможность пользоваться группированными ячейками и столбцами. Сам пользуюсь 7-ым экселем и когда загрузил макрос туда, все работало. Потом нужно было чтобы все листы были блокированы, но при этом оставалась возможность группировки и когда перенес макрос из той же ветки в 7-ой эксель, стала появляться ошибка (compile error in hidden module thisworkbook). А теперь появилась другая проблема, что когда данный файл запускается на компьютере где отключены макросы, данный макрос не работает и к редактированию доступны любые ячейки.

Подскажите, как можно решить:
1. ошибку compile error in hidden module thisworkbook
2. сделать чтобы блокировались выборочные листы (которые будут прописаны в макросе)
3. сделать так чтобы файл в котором будет данный макрос запускался и макрос включал макросы в данном экселе?

Спасибо всем

[SAS888]

1. Прикрепите Ваш проблемный файл с макросами в формате Excel 2007. Разберемся.
2. Макросом "включить" макросы, т.е. изменить установленный уровень безопасности в Excel невозможно. Можно сделать так, что при отключенных макросах будет отображаться лишь пустой лист-заставка с напоминанием о том, что макросы отключены. Естественно, что доступ к рабочим листам будет заблокирован.

[clown86]

А как можно реализовать 2-ой способ?

Спасибо

[Hugo121]

Ну про compile error я уже автору ответил - там next забылось в запароленном модуле...

[clown86]

Да Hugo121, спасибо тебе огромное.

[clown86]

Не подскажете, как эта тема называется когда макросы отключены и их необходимо включить?

Спасибо

[SAS888]

как эта тема называется когда макросы отключены и их необходимо включить?

В Excel 2007 это "Параметры макросов" в "Центре управления безопасностью". В Excel 2003 это "Уровень безопасности" в "Сервис" - "Макрос" - "Безопасность".
Повторюсь, что на то она и безопасность, что программно этот параметр изменить невозможно.

[clown86]

SAS888, я имею ввиду то что, когда запускается книга с макросами, то листы появляется пустые и надпись, включи макросы. Спасибо

[npocmop]

Похоже надо скрыть основные листы и оставить один - пустой. Должен остаться видимым хотя бы один лист, в данном случае пустой.
... If Sheets(i).Name <> ActiveSheet.Name Then _
Sheets(i).Visible = xlSheetHidden ' или xlSheetVeryHidden
...
При этом лучше скрыть ярлыки листов: ActiveWindow.DisplayWorkbookTabs = False
Создать форму под названием

включи макросы.

и прописать её запуск после Sub Workbook_Open()

[clown86]

npocmop, а можно на примере конкретного файла?

Благодарю