قفل سلول بر اساس پرشدن یک سلول

**ali.b** · 2014/07/24, 20:31

کد:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)     
    Dim rngCell As Range
    If Not Application.Intersect(Target, Me.Range("c1:c10")) Is Nothing Then
        For Each rngCell In Application.Intersect(Target, Me.Range("c1:c10"))
            If Me.Cells(rngCell.Row, "A").Value <> "Pending" Then
                Application.OnKey "{DEL}", ""
                Application.OnKey "{BACKSPACE}", ""
                Exit For
            Else
                Application.OnKey "{DEL}"
                Application.OnKey "{BACKSPACE}"
            End If
        Next rngCell
    Else
        Application.OnKey "{DEL}"
        Application.OnKey "{BACKSPACE}"
    End If
     
End Sub

این کد مشکلم رو حل کرد