This code limits the focus in a big MSFlexGrid to a certain range of columns and rows. It limits movement by using the entercell method. It controls the use of enterkey, arrowkey, or mouse clicking with simple, on-cell direct editing:

Const XTRA_COLS = 3     'including fixed columnConst XTRA_ROWS = 15    'including fixed rowPrivate Sub flxGrdDemo_EnterCell()    With flxGrdDemo        If .Col > .Cols - XTRA_COLS Then            .Col = 1            If .Row + 1 <= .Rows - XTRA_ROWS Then                .Row = .Row + 1            Else                .Row = 1                .Col = 1            End If        End If    End WithEnd SubPrivate Sub FlxGrdDemo_KeyPress(KeyAscii As Integer)Select Case KeyAscii    Case vbKeyReturn        ' When the user hits the return key        ' this code'll move the next cell or row.        With flxGrdDemo            If .Col + 1 <= .Cols - XTRA_COLS Then                .Col = .Col + 1            ElseIf .Row + 1 <= .Rows - XTRA_ROWS Then                .Row = .Row + 1                .Col = 1            Else                .Row = 1                .Col = 1            End If        End With    Case vbKeyBack        ' Delete the previous character when the        ' backspace key is used.        With flxGrdDemo            If Trim(.Text) <> "" Then _                .Text = Mid(.Text, 1, Len(.Text) - 1)        End With    Case Is < 32        ' Avoid unprintable characters.    Case Else 'Else print everything        With flxGrdDemo            .Text = .Text & Chr(KeyAscii)        End WithEnd SelectEnd SubPrivate Sub FlxGrdDemo_KeyUp(KeyCode As _Integer, Shift As Integer)Select Case KeyCode    ' Copy    Case vbKeyC And Shift = 2 ' Control + C        Clipboard.Clear        Clipboard.SetText flxGrdDemo.Text        KeyCode = 0        ' Paste    Case vbKeyV And Shift = 2 'Control + V        flxGrdDemo.Text = Clipboard.GetText        KeyCode = 0        ' Cut    Case vbKeyX And Shift = 2 'Control + X        Clipboard.Clear        Clipboard.SetText flxGrdDemo.Text        flxGrdDemo.Text = ""        KeyCode = 0        ' Delete    Case vbKeyDelete        flxGrdDemo.Text = ""End SelectEnd Sub