السلام عليكم
الساده الافاضل
بعد الاطلاع علة موضوه
http://www.officena.net/ib/index.php?showtopic=42655
ارجو الافاده
ActiveSheet.Unprotect
و
ActiveSheet.protect
فى ذلك الكود
حيث ان shet clode له حمايه بكلمه سر 123456
Sub tarheel()
Application.ScreenUpdating = False
With Sheets("ÚÇã")
LR = .[i65000].End(xlUp).Row
For I = 5 To LR
If Cells(I, "W") <> "Êã ÇáÊÑÍíá" And Cells(I, "G") <= 10 Then
.Cells(I, "W") = "Êã ÇáÊÑÍíá"
.Range(.Cells(I, "I"), .Cells(I, "R")).Copy
With Sheets("Close")
nr = .[b65000].End(xlUp).Row + 1
.Cells(nr, "B").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sort_Close
End With
End If
Next
End With
Sort_General
Application.ScreenUpdating = True
End Sub
جزاكم الله خير