تعديل بكود عدم الصلاحية بتعديل بعض الخلايا

[شعبان فليفل]

برجاء المساعدة في هذا الكود 

 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ict1 As Range
Set ict1 = Intersect(Target, Range("D9:D50", "g9:g50", "r9:r50", "a3:r5"))
If ict1 Is Nothing Then Exit Sub
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With

End Sub

 

حيث أنه لا يعمل بكفاءة إلا عند تعديل هذه الجزئية

Set ict1 = Intersect(Target, Range("D9:D50", "g9:g50", "r9:r50", "a3:r5"))

إلي 

et ict1 = Intersect(Target, Range("D9:D50"))