Hola, te recomiendo el siguiente procedimiento:
****************************************************************************************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Celda As String
Celda = "$B$1"
If Target.Address = Celda Then
Cells(3, 5).Select
End If
End Sub
****************************************************************************************
Yo probé a modo de ejemplo con: Celda = "$B$1", pero esta se supone que es la celda que tú no quieres modificar, por lo tanto tienes libre acceso para digitar la celda correspondiente a tu planilla.
y Cells(3, 5).Select corresponde a la celda que se selecciona cuando tú activas Celda = "$B$1".
Es decir, cada vez que intentas seleccionar la celda "B1", se selecciona automáticamente la celda "$E$3", por supuesto tú tambien puedes modificar esta celda de destino.
Pero el objetivo se cumple, ya que no puedes modificar la celda que deseas.
Saludos,
Fernando