Доброго времени суток!
Может, кто нибудь сталкивался с защитой диапазона ячеек Excel программным образом? Подскажите, как это можно реализовать.
Заранее спасибо

Ставим галки шо ячейки есть защищаемые
Sub Макрос2()  
   Selection.Locked = True
   Selection.FormulaHidden = False
End Sub

Защищаем ячейки отВСЕГО (можно варьровать)
Sub Макрос3()
   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
       False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
       AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
       :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
       AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
       AllowUsingPivotTables:=True
End Sub