|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.06.2011, 12:15 | #1 |
Регистрация: 01.06.2011
Сообщений: 4
|
Снятие защиты листа
Ребят...не пойму в чём ошибка...
Вот условие задачи: Написать процедуру. 1. С пом. диалогового окна ввести пароль и присвоить значение переменной Password 2. если значение введённого пароля "1", то с пом. упр. структуры For each sheet in ActiveWorkBook.Sheets.........next sheet каждому листу активной рабочей книги задать выполнение след.действий: -выбрать лист - снять защиту с листа - свойству Visible присвоить значение true Если пароль введён неверно, выдать соответствующее сообщение. Sub Unprotect() Dim Sh As Worksheet, Password As String Password = InputBox("Введите пароль") For Each Sheet In ActiveWorkbook.Sheets Sh.Select Sh.Unprotect Visible = True MsgBox "Защита с листов снята!" Next Sheet MsgBox "Пароль введён неверно!" End Sub Не подскажете в чём ошибка? |
01.06.2011, 12:20 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Код:
Анализ,обработка данных Недорого
|
01.06.2011, 12:29 | #3 |
Регистрация: 01.06.2011
Сообщений: 4
|
Спасиб огромное!
|
25.06.2013, 10:44 | #4 |
Форумчанин
Регистрация: 12.08.2009
Сообщений: 199
|
А подскажите пожалуйста как снять защиту всей книги? Спасибо!(есть файл который нужно откорректировать)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Снятие защиты на макросах | sasha_prof | Microsoft Office Excel | 5 | 04.06.2010 16:41 |
Отключение пароля защиты листа кодом. | segail | Microsoft Office Excel | 6 | 14.12.2009 19:21 |
защита листа и снятие защиты в зависимости от логина | Dorvir | Microsoft Office Excel | 2 | 30.06.2008 13:24 |
Снятие Защиты с листов, сразу со всех | valerij | Microsoft Office Excel | 2 | 02.11.2007 21:19 |