ارجو توضيح الكود بالتفاصيل
Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:=1234 Sheets("sts").Range("c9:c58").Value = "" For l = 9 To 58 t = 8 If Sheets("anyls").Range("b" & l).Value <> "" Then For i = 67 To 90 If Sheets("anyls").Range(Chr(i) & l).Value <> "" Then If Sheets("anyls").Range(Chr(i) & l).Value = 0 Then Sheets("sts").Range("c" & l).Value = Sheets("sts").Range("c" & l).Value & " - " & Sheets("pts").Range("b" & t).Value End If End If t = t + 1 Next For k = 65 To 89 If Sheets("anyls").Range("a" & Chr(k) & l).Value <> "" Then If Sheets("anyls").Range("a" & Chr(k) & l).Value = 0 Then Sheets("sts").Range("c" & l).Value = Sheets("sts").Range("c" & l).Value & " - " & Sheets("pts").Range("b" & t).Value End If End If t = t + 1 Next End If Next ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub