シートの保護

シートの保護しつつ以下は許可する設定
・ロックされたセル範囲の選択
・ロックされていないセル範囲の選択
・セルの書式設定

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True