1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

const
  zelleX = 3;
  zelleY = 2;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with TStringGrid(Sender) do begin
    if (Col = zelleX) and (Row = zelleY) then
      options := options - [goEditing]
    else options := options + [goEditing];
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

//...
const
  ColSelNo = [0,4,8..20];
//...
procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
  var CanSelect: Boolean);
begin
  if Col in ColSelNo then
    CanSelect := False
    else
      CanSelect := True;
end;