Как снять защиту с рабочего листа


<показать предыдущий урок

... вот какой макрос у меня при этом получился:

Sub Макрос1()
' Макрос1 Макрос
' Макрос записан 27.11.2005 (Александр)
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
End Sub

Конечно, несколько длинноват, но ведь мы с вами не боимся экспериментировать, так давайте же его подсократим и, поэкспериментировав, прийдем к выводу, что он работоспособен и в следующем виде:

Sub Макрос1()
___ActiveSheet.Protect
___ActiveSheet.Unprotect
End Sub

Кроме того. помним, что вначале мы ставили лист на защиту, а затем снимали, поскольку работать- то начали с вновь созданной рабочей книгой.Вот мы и докопались до сути, а кроме того поняли, что нужный код можно найти всегда, если немного поэкспериментировать. Ничего не поделаешь, эксперимент - одна из основ получения новых знаний, когда рыться в справочниках не хочется.


Итак, мы поняли что код: ActiveSheet.Protect - ставит рабочий лист на защиту, а макрос ActiveSheet.Unprotect - снимает защиту с рабочего листа. Можно было бы и начать программировать, но вот беда, не знаем команды, которая очищает выделенную (активную) ячейку, что будем делать?

Конечно! Снова проведем небольшой эксперимент...продолжение

СПРАВОЧНИК ДЛЯ ВАС

Как запустить редактор VBA...

Не знаете, как создать форму...

Не знаете, как подключить макросы ...

Вы не знаете как открыть окно свойств...

Инструментальную панель как открыть...

Автоматическая запись макроса...

Создание своей кнопки и ее подключение к макросу на выполнение...

Как провести проверку на работоспособность созданой кнопки...

Как найти макрос только что созданный вами в автоматическом режиме для последующего редактирования и изучения...

Рейтинг@Mail.ru
 главная с чего начать готовые программы задачи с решениями карта
Copyright © СОМИТ, А.Козлов, 2005 г