Excel VBA Макросы: Защитить весь лист от редактирования кроме определенных ячеек.

Автор Посетитель, 23 июля 2019, 14:03

Посетитель

Как защитить с помощью макроса весь лист от редактирования кроме этих ячеек: D4,D7,D10,D13,D16?

Администратор

Макрос
Sub Макрос()
   
    ' Убираем эту галочку: щёлкните по ячейке правой мышью - Формат ячеек... -
        ' вкладка "Защита" - Защищаемая ячейка.
    '1. Чтобы в эти ячейки юзер мог записывать данные, когда лист будет защищён.
    Range("D4,D7,D10,D13,D16").Locked = False
   
    '2. Включение защиты листа.
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
End Sub
[свернуть]


Примечания

Если в пункте 1 будет происходить ошибка, то возможная причина - на листе установлена защита. Снимите защиту перед использованием пункта 1.