Deactivate Selection in Range of Cells

[mef1sto]

Hello!
I have a range of cells and if i select more than one cell in this range it will reduce my selection to one cell and everything works quite fine until i select for e.g. two cell but the cell right in the vicinity of my range of cells (and this column has a formula) in will select my one cell in the range BUT it will also copy to this cell the formula from the near cell by that selection of two cell i previously had done and i don't know how to avoid this from happening Maybe a little help i'd be great!

'Worksheet_SelectionChange(ByVal Target As Range)
'Disable MULTICELL SELECTION
Set rnga12 = Range("B16:E28")
    For Each cell In rnga12
    
    If Not Intersect(Target, cell) Is Nothing And Target.Count > 1 Then
        Target.Cells(1, 1).Select
    End If
    Next cell

Also in this range i happen to have a rule to not be able to rewrite cells

' Worksheet_Change(ByVal Target As Range)
Set rnga12 = Range("B16:E28")
    For Each cell In rnga12
    
    If Not Intersect(Target, cell) Is Nothing Then
        If cell.Value = 0 Or cell.Value <> 0 Then
            MsgBox "Update cell denied!", vbCritical
            Application.Undo
        End If
    End If
    Next cell