با سلام خدمت دوستان عزیز
ی کدی دارم کارش اینه که دکمه delete رو برای پاک کردن سلول غیر فعال میکنه
که ی بخشش رو هم تغییر دادم که علاوه بر دکمه del ، دکمه back space ، هم شاملش میشه
حالا علاوه براینا میخوام وقتی در یک سلول خالی متن وارد شد ، دیگه نشه تغییرش دارد بدون اینکه شیت رو قفل کنم مثل کد زیر
حالا این کد رو چیا بهش اضافه کنم تا خواسته ام براورده کنه؟
ی کدی دارم کارش اینه که دکمه delete رو برای پاک کردن سلول غیر فعال میکنه
که ی بخشش رو هم تغییر دادم که علاوه بر دکمه del ، دکمه back space ، هم شاملش میشه
حالا علاوه براینا میخوام وقتی در یک سلول خالی متن وارد شد ، دیگه نشه تغییرش دارد بدون اینکه شیت رو قفل کنم مثل کد زیر
حالا این کد رو چیا بهش اضافه کنم تا خواسته ام براورده کنه؟
کد:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim rngCell As Range
If Not Application.Intersect(Target, Me.Range("A3:G200")) Is Nothing Then
For Each rngCell In Application.Intersect(Target, Me.Range("A3:G200"))
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
کامنت