Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 02.11.2007, 00:53   #1
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию Снятие Защиты с листов, сразу со всех

Можно как то снять(поставить) Защиту листов, сразу со всех, а не по одному. Если их, листов, 15 и >>, утомительно.
valerij вне форума
Старый 02.11.2007, 10:56   #2
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

может так?

Код:
Sub ProtectAllSheets()
'защищаем все листы
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Sheets
        Sh.Protect Password:="12345", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    Next
    MsgBox "Все листы защищены!", vbInformation, "Защита"
End Sub
Код:
Sub UnProtectAllSheets()
'снимаем защиту со всех листов
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Sheets
        Sh.Unprotect Password:="12345"
    Next
    MsgBox "Защита с листов снята!", vbInformation, "Защита"
End Sub
P.S. можно написать лишь одну процедуру, которая будеть проверять, если лист защищён, то снимет защиту, а если лист не защищён, то поставит.
Pavel55 вне форума
Старый 02.11.2007, 21:19   #3
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,339
По умолчанию

Спасибо, разобрался, класс!

Последний раз редактировалось valerij; 02.11.2007 в 22:43.
valerij вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Cравнения 2 листов anju Microsoft Office Excel 8 08.09.2008 14:46
Сортировка листов книги RUBEY Microsoft Office Excel 1 17.07.2008 10:57
защита листа и снятие защиты в зависимости от логина Dorvir Microsoft Office Excel 2 30.06.2008 13:24
Снятие скриншота в МСДОС Black_Ak24 Свободное общение 4 17.06.2008 19:03
организация простенькой парольной защиты .exe файлов в конкретном каталоге abyss Помощь студентам 2 13.11.2007 08:24