アクティブシートの指定セル以外を入力不可（保護）します。
 セルのB2～C3,D4～E5,F6～G7を入力領域として、その他のセルを選択不可とします。

[Sample]

Sub Puf_Cell_Protect()

    ActiveSheet.Unprotect
    '*** 入力する範囲の選択して保護を解除
    Cells(2, 2).Resize(2, 2).Select
    Selection.Locked = False
    Cells(4, 4).Resize(2, 2).Select
    Selection.Locked = False
    Cells(6, 6).Resize(2, 2).Select
    Selection.Locked = False
    '*** シートプロパティの変更
    '注）これにより、セルに対して保護（ロック）が設定されているところは選択不可となる。

    ActiveSheet.EnableSelection = xlUnlockedCells
    '*** シートの保護
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub