Как установить пароль сразу на все листы?

@Suleyman · Регистрация: 02.10.2011

Студворк — интернет-сервис помощи студентам

Пытаюсь ставить на пороль все листы сразу.
Помогите сделать менее объемным макрос.
В лист INFO можно вносить только данные, у остальных можно форматировать строки
столбцы и ячейки

Sub protect()
Sheets("INFO").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("CREW").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("EFFECT").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("STORE").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Sheets("DECK").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
End Sub

04.12.2011, 21:25

Sub Protect()
Dim objSheet As Worksheet
For Each objSheet In ThisWorkbook.Worksheets
Select Case objSheet.Name

Case "INFO"
objSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Case "CREW", "EFFECT", "STORE", "DECK"
objSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True

End Select
Next
Set objSheet = Nothing
End Sub

@Suleyman · 05.12.2011, 00:31 **[ТС]**

Большое спасибо!

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Suleyman 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 39

	Как установить пароль сразу на все листы? 02.12.2011, 23:08. Показов 1367. Ответов 2 Метки нет (Все метки) Пытаюсь ставить на пороль все листы сразу. Помогите сделать менее объемным макрос. В лист INFO можно вносить только данные, у остальных можно форматировать строки столбцы и ячейки Sub protect() Sheets("INFO").Select ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True Sheets("CREW").Select ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True Sheets("EFFECT").Select ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True Sheets("STORE").Select ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True Sheets("DECK").Select ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True End Sub 0

aleksmir
	04.12.2011, 21:25
	Sub Protect() Dim objSheet As Worksheet For Each objSheet In ThisWorkbook.Worksheets Select Case objSheet.Name Case "INFO" objSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Case "CREW", "EFFECT", "STORE", "DECK" objSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True End Select Next Set objSheet = Nothing End Sub

@Suleyman 0 / 0 / 0 Регистрация: 02.10.2011 Сообщений: 39
	05.12.2011, 00:31 [ТС]
	Большое спасибо! 0