特定の範囲にのみ行を挿入するシートを保護する

Question

シートが保護されているときに、ユーザーが行を挿入できるようにする方法を見つけようとしています。例えば、私は、ユーザが行 "1"と "2"の間に行を挿入できないようにしたい（マクロが面白いことをするため）が、行を挿入できるようにしたい他のすべて。

次のコードは、ユーザーがシートの至る所に行を挿入することができますが、それは私が欲しい正確に何ではありません。

ActiveSheet.Protect Password:="qwerty", DrawingObjects:=True, Contents:=True, Scenarios:=True _ 
    , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ 
    AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:=True 

誰かがこの問題で私を助けることができますか？唯一の特定の範囲内の行を挿入するからユーザーを防ぐための方法はありません

Answer 1

ユーザーが誤ってやってからそれらを防ぐ可能性がある上位2行のセルを選択しないように、あなたはそれらのセルをロックし、ロックされたセルの選択を防ぐことができますそれ？

また、行の挿入をロックし、UserInterfaceOnly:=Trueを設定し、行を間違った場所に挿入しようとしている場合は、マクロを使用して行挿入を処理することができます。

ユーザーがワークシート全体に行を挿入できる必要がありますか？

Answer 2

以下のコードは、ワークシート選択変更イベントで使用できます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Target.Row = 1 Or Target.Row = 2 Then 
     'MsgBox "Check" 
     ActiveSheet.Protect Password:="qwerty", DrawingObjects:=True, Contents:=True, Scenarios:=True _ 
     , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ 
     AllowFormattingRows:=True, AllowInsertingRows:=False, AllowDeletingRows:=True 
    Else 
     ActiveSheet.Unprotect Password:="qwerty" 
    End If 
End Sub