Option Explicit

Private Type TColDescriptor
   fcIndex As Long
   fcCaption As String
   fcEnabled As Boolean
End Type

Dim ColDescriptor() As TColDescriptor

Dim ColEnabled() As Boolean

Private Sub MyFlexInit()
   Dim i As Long
   With MSFlexGrid1
      ReDim ColDescriptor(.Cols -  1 )
      For i =  0  To .Cols -  1 
         ColDescriptor(i).fcCaption = .TextMatrix( 0 , i)
         ColDescriptor(i).fcEnabled = True
         ColDescriptor(i).fcIndex = i
      Next
   End With
End Sub

Private Property Get ColumnEnabled(ByVal Key As Variant) As Boolean
   Dim i As Long
   If IsNumeric(Key) Then
      ColumnEnabled = ColDescriptor(Key).fcEnabled
   Else
      For i =  0  To UBound(ColDescriptor)
         If ColDescriptor(i).fcCaption = Key Then
            ColumnEnabled = ColDescriptor(i).fcEnabled
         End If
      Next
   End If
End Property
Private Property Let ColumnEnabled(ByVal Key As Variant, ByVal NewEnabled As Boolean)
   Dim i As Long
   If IsNumeric(Key) Then
      ColDescriptor(Key).fcEnabled = NewEnabled
   Else
      For i =  0  To UBound(ColDescriptor)
         If ColDescriptor(i).fcCaption = Key Then
            ColDescriptor(i).fcEnabled = NewEnabled
         End If
      Next
   End If
End Property

Private Sub Form_Load()
'Инициализация заголовков
   With MSFlexGrid1
      .Cols =  7 
      .TextMatrix( 0 ,  0 ) = "Первый"
      .TextMatrix( 0 ,  1 ) = "Второй"
      .TextMatrix( 0 ,  2 ) = "Третий"
      .TextMatrix( 0 ,  3 ) = "Четвертый"
      .TextMatrix( 0 ,  4 ) = "Пятый"
      .TextMatrix( 0 ,  5 ) = "Шестой"
      .TextMatrix( 0 ,  6 ) = "Седьмой"
   End With
'Инициализация описателя (вызывать всегда после переопределения колонок грида)
   MyFlexInit
'Обращение по имени колонки
   ColumnEnabled("Второй") = False
   ColumnEnabled("Четвертый") = False
'Обращение по номеру колонки
   ColumnEnabled( 5 ) = False
End Sub

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
   If ColDescriptor(MSFlexGrid1.Col).fcEnabled = True Then
      Select Case KeyAscii
         Case  13 
            With MSFlexGrid1
               If .Col +  1  <= .Cols -  1  Then
                  .Col = .Col +  1 
                  .Row =  1 
               Else
                  .Col =  0 
                  .Row =  1 
               End If
            End With
         Case  8 
            With MSFlexGrid1
               If Trim(.Text) <> "" Then _
               .Text = Mid(.Text,  1 , Len(.Text) -  1 )
            End With
         Case Else
            With MSFlexGrid1
               .Text = .Text & Chr(KeyAscii)
            End With
      End Select
   End If
End Sub