تخصيص عمل الماكرو

[احمد الجزار2007]

السلام عليكم 

عندي كود  بيعمل  locked    للحلايا بشرط 

المشكله ان الكود بيبتدي  عمله من الخليه  a1   

انا  عاوز  اعدل عليه  بحيث انه يبدي عمله  من الصف  التاسع ,  ويتجاهل  ما قبل ذلك 

الكود 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Unprotect Password:=""

If Range("a" & Target.Row & ":a" & Target.Row).Value = 1 Then

Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = True

Else
Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = False

End If

    

    ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 

 

[احمد الجزار2007]

up

[ياسر خليل أبو البراء]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 8 Then
        ActiveSheet.Unprotect Password:=""
            If Range("a" & Target.Row & ":a" & Target.Row).Value = 1 Then
                Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = True
            Else
                Range("b" & Target.Row & ":b" & Target.Row).EntireColumn.Locked = False
            End If
        ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub