Private Sub FpSpread1_EditError(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EditErrorEventArgs) Handles FpSpread1.EditError
If e.EditError = FarPoint.Win.Spread.EditError.CellIsLocked Then
e.View.Sheets(0).Cells(e.Row, e.Column).BackColor = Color.Red
End If
End Sub