Как разблокировать и заблокировать ячейку с помощью VBA

Пользователь

Сообщений: 13 Регистрация: 30.07.2019

19.12.2021 08:40:48

Добрый день, помогите пожалуйста прописать макрос который разблокирует защищенный лист и установит защиту в активной ячейке. и снова установит защиту листа по текущему паролю
Суть в том чтобы после закрытие месяца не меняли данные. Если случайным образом поменяют сразу будет видно.

Прикрепленные файлы

Книга1.xlsm (31.81 КБ)

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

19.12.2021 09:12:57

Код
Sub ActiveCellLock() With ActiveCell .Parent.Unprotect "пароль" .Locked = True .Parent.Protect "пароль" End With End Sub

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

BUCHO_ Пользователь Сообщений: 13 Регистрация: 30.07.2019	#3 19.12.2021 13:05:40 СПАСИБО ОГРОМНОЕ. ТО ЧТО НАДО!