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
перечень вышеуказанных параметров определяет защитить от чего (изменения/выделения и т.д.)
Stepler ^{(щёлк-щёлк!!)}
P.S. [SIZE=0.5]Присутствовали ли Вы, когда Вас фотографировали?