|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.07.2009, 20:45 | #1 |
Пользователь
Регистрация: 06.07.2009
Сообщений: 45
|
Автоматически снять защиту с листов
Господа, вообще понимаю, что вопрос очень простой для человека с опытом, а вот я что-то с ним забуксовал. Мне нужно прошерстить все листы книги и снять защиту с тех из них, на которых она установлена. Я написал что-то такое:
For i=1 to Worksheets.Count Worksheets(i).Activate If ActiveWorksheet.Protected(или как???)=True then Worksheet.Unprotect else next i И не работает и не могу сообразить как правильно! Буду оч благодарен за подсказку! |
24.07.2009, 20:52 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Код:
Если же вам надо макросом установить многоуровневую защиту на файл, и разграничить доступ к книге Excel для разных пользователей, - обратите внимание на это решение: http://excelvba.ru/tools/Authentication
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 23.01.2011 в 18:00. |
24.07.2009, 20:55 | #3 |
Пользователь
Регистрация: 06.07.2009
Сообщений: 45
|
Огромное спасибо!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В книге защищен каждый лист. Как быстро снять защиту со всех листов, а потом ее поставить опять? | Катик7 | Microsoft Office Excel | 13 | 28.04.2011 16:02 |
снять защиту с файла | buk | Microsoft Office Excel | 3 | 08.12.2008 14:20 |