ой файл данных обрабатывается с использованием VBA для создания электронной таблицы, защищенной Excel (2003) (Invoice). Затем электронная таблица должна быть разослана в другие офисы, где в некоторые назначенные ячейки должны быть внесены изменения. Как я могу создать рабочий лист, чтобы эти ячейки могли быть изменены, когда весь лист защищен? Я попытался использовать приведенный ниже код и другие подобные варианты, но, похоже, он не работает. Вы можете помочь?

Private Sub CellLock1()

  Cells.Select
  ' unlock all the cells
  Selection.Locked = False

  ' lock only these cells
  Range("J49:K49").Select
  Selection.Locked = True

 ActiveSheet.Protect DrawingObjects:=True, _
                     Contents:=True, _
                     Scenarios:=True, _
                     UserInterfaceOnly:=True, _
                     AllowFormattingCells:=True, _
                     AllowFormattingColumns:=True, _
                     AllowFormattingRows:=True, _
                     AllowInsertingColumns:=True, _
                     AllowInsertingRows:=True, _
                     AllowInsertingHyperlinks:=True, _
                     AllowDeletingColumns:=True, _
                     AllowDeletingRows:=True, _
                     AllowSorting:=True, _
                     AllowFiltering:=True, _
                     AllowUsingPivotTables:=True

End Sub