Ребята привет! 👋
Сегодня рассмотрим различные способы защиты, включая использование функции защиты листа и создание пользовательских макросов.
Вы узнаете, как быстро и легко защитить свои формулы от изменений и сохранить целостность своих данных.
📢 Файл с примером кода Вы можете скачать в конце статьи 🔽
Чтобы защитить формулы от изменений, можно использовать функцию защиты листа.
Вот как это сделать:
Теперь формулы будут защищены от изменений.
Чтобы снять защиту, нажмите "Разблокировать лист" на вкладке "Разработчик" и введите пароль (если он был установлен).
🔔 Но есть способ лучше!
▶️ Примеры использования макросов для защиты формул от изменений
🔘 Пример 1: Этот код можно использовать для быстрой защиты всех формул на активном листе с использованием пароля.
- Sub ProtectFormulas(): начало процедуры;
- Dim cell As Range: объявление переменной cell как объекта Range, будет использоваться для перебора ячеек на листе;
- For Each cell In ActiveSheet.UsedRange: начало цикла For Each, перебирает все ячейки в используемом диапазоне активного листа;
- If cell.HasFormula Then: условный оператор If, проверяет, содержит ли текущая ячейка формулу;
- cell.Locked = True: если ячейка содержит формулу, то свойство Locked устанавливается в значение True, т.е. ячейка будет заблокирована при защите листа;
- End If: конец условного оператора If;
- Next cell: конец цикла For Each;
- ActiveSheet.Protect "12345": метод Protect, защищает активный лист (включая ячейки с формулами) используя пароль "12345".
- End Sub: конец.
🔔 Обратите внимание, код является примером и может быть изменен и адаптирован в соответствии с вашими требованиями.
🔘 Пример 2: Код является примером обработчика событий Worksheet_SelectionChange (выполняется каждый раз, когда пользователь выбирает ячейку или диапазон ячеек на листе).
Обработчик событий проверяет, содержит ли выбранная ячейка формулу. Если хотя бы одна из выбранных ячеек содержит формулу, лист защищается с помощью метода Protect, в противном случае лист разблокируется с помощью метода Unprotect.
- Private Sub Worksheet_SelectionChange(ByVal Target As Range): начало обработчика событий Worksheet_SelectionChange с параметром Target, представляет собой диапазон выбранных ячеек;
- Dim rng As Range: объявление переменной rng как объекта Range, будет использоваться для перебора выбранных ячеек;
- For Each rng In Target.Cells: начало цикла For Each, перебирает все выбранные ячейки;
- If rng.HasFormula Then: условный оператор If, проверяет, содержит ли текущая ячейка формулу;
- ActiveSheet.Protect: если ячейка содержит формулу, то метод Protect вызывается для защиты активного листа;
- Else: ветвь Else условного оператора If, выполняется, если текущая ячейка не содержит формулу;
- ActiveSheet.Unprotect: если ячейка не содержит формулу, то метод Unprotect объекта Worksheet вызывается для снятия защиты с активного листа;
- End If: конец условного оператора If;
- Next rng: конец цикла For Each;
- End Sub: конец
🔔 Обратите внимание, что этот код должен быть помещен в модуль листа!