وعليكم السلام ورحمه الله وبركاته
جرب هذا التعديل اخي @ehabaf2
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim X As Range
For Each X In Target
' 600 هو اخر سطر لعمل الكود
'L هو العامود column 12
If (X.Row < 600 And X.Column < 12) Then
If ActiveSheet.ProtectContents = True And X.Value <> "" Then X.Offset(0, 1).Select
End If
Next
End Sub
عدم التعديل فى اسطر محددة.xlsb