rijen blokeren

[noelelsayed]

Ik heb een formulier gemaakt die heeft een grote van A55 tot J84.
Als J55 kleiner is dan 1 dan moet de de andere regels 56 t/m 84 geblokeert worden.
is J55 groter dan 1 dan moet regel 56 gedeblokeert worden.
en als er dan een waarde groter is dan 1 in J56 dan moet de volgende regel ge deblokeert worden hoe krijg ik dat voor elkaar

ik hoop op een paar andwoorden er mag VBA code in zitten.

gr. noel

 

[HSV]

Test deze eens.

Private Sub Worksheet_Change(ByVal Target As Range)
 ActiveSheet.Protect 'Scenarios:=True, UserInterfaceOnly:=True
   Range("A55:J84").Locked = False
 
 Dim i As Integer, j As Integer
    For i = 55 To 84
     For j = 1 To 10
       If Cells(i, 10) < 1 Then
         Cells(i + 1, j).Locked = True
       End If
      Next j
    Next i
   ActiveSheet.Protect
End Sub