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

**ali.b** · 2014/07/24

سلام و خسته نباشید
این فایل نمونه رو دقت کنین میخوام در هر ردیف از رنج a تا d قفل باشه یعنی نه دکمه del کار کنه و نه backspace اما شیت قفل نباشه
و فقط تو شیت جاری این کد باشه و در شیت های دیگه تاثثیر نداشته باشه یعنی در هر شیتی که بخوام این کد تو اون شیت تاثیر داشته باشه
اخه ممکنه از کد vb ئاسه انتقال اطلاعات به شیت دیگه استفاده کنم و نمیخوام protect شدن شیت باعث مشکل بشه

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**ali.b** · 2014/07/24

کد:

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

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