заполнять список

[VictorM]

Ничего не могу сказать, у меня тоже 2003-й.
А "правильно защитить" / снять защиту ... попробуйте еще так
запустите вот эти 2 макроса, они должны работать попеременно.
Сначала снять, затем защитить

Sub ПоставитьЗащиту()
    On Error Resume Next
    With ActiveSheet
        .Protection.AllowEditRanges.Add Title:="Диапазон1", Range:=[B2]
        .Protection.AllowEditRanges.Add Title:="Диапазон2", Range:=[F2]
        .Protection.AllowEditRanges.Add Title:="Диапазон3", Range:=[I2]
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        .EnableSelection = xlUnlockedCells
    End With
End Sub
Sub СнятьВсюЗащиту()
  On Error Resume Next
    With ActiveSheet
        .Unprotect
        .Protection.AllowEditRanges(1).Delete
        .Protection.AllowEditRanges(1).Delete
        .Protection.AllowEditRanges(1).Delete
    End With
End Sub