Private Sub FpSpread1_LeaveCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles FpSpread1.LeaveCell
Dim s As String
s = FpSpread1.ActiveSheet.Cells(e.Row, e.Column).Text
If s = Nothing Then
e.Cancel = True
End If
End Sub