Как защитить с помощью макроса весь лист от редактирования кроме этих ячеек: 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.