Private Sub Grid_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, sText As _
  String, bCancel As Boolean)
 
    ' Prüfroutine:
    '
    ' Wenn Inhalt der Zelle "Status" = "LO" setze die bCancel Eigenschaft
    ' des StartEditMode auf True und beende die Routine....
 
    With Me!Grid
        If .Text(nRow, "Status") ="LO" then
            bCancel = True
            Exit Sub
        Else
            bCancel = False
        End If
    End With
 
End Sub

CardManager (SmartCard Tools a la CARD)