Private Sub Grid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, sText _
  As String, bCancel As Boolean)
 
   With Grid1
        If .GetCol("status") <> nCol Then
         If .Text(nRow, "Status") = "LO" Then
            bCancel = True
            MsgBox "Das Editieren von archivierten Datensätzen ist nicht" & _
              "zulässig!"  
         End If
        End If
    End With
 End Sub