Prevent shapes from being moved into certain cell

[RemcoVBA]

I've build a planboard and I'm using shapes to represent work packages.
Users can move around the shapes and below code would return the first and last cell the rectangle is placed in.

Now I want to prevent that the users can move the shapes to certains cells (or the other way around : make sure they will always put the rectangle in a certain range).
Is there a way to do this? I know that I can lock cells for inserting values but shapes seems to float over the cell.

Code:
Worksheets("Sheet 1").Range("A1").Value = Cells(Sheet1.Shapes("Rectangle 4").TopLeftCell.Row, Sheet1.Shapes("Rectangle 4").TopLeftCell.Column).Value
Worksheets("Sheet 1").Range("B1").Value = Cells(Sheet1.Shapes("Rectangle 4").BottomRightCell.Row - 1, Sheet1.Shapes("Rectangle 4").BottomRightCell.Column).Value

 

[tonyyy]

If your boundary range is, for example, Range(Cells(3, 3), Cells(20, 10)), then you might consider the following...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Shapes("Rectangle 4")
    If .TopLeftCell.Row < 3 Or _
        .TopLeftCell.Column < 3 Or _
        .BottomRightCell.Row > 20 Or _
        .BottomRightCell.Column > 10 Then
        MsgBox "Out of bounds - please move the shape within range."
    End If
End With
End Sub

The code goes into the sheet module with the shapes.

If the rectangle is out of bounds, the user will receive the MsgBox prompt and will not be able to continue until the rectangle is moved within range.

Cheers,

Tony