rijen verbergen en blokkeren

[janemmers]

Zie bijgevoegde bestandje
Ik wil graag de rijen verbergen waarvan de celwaarde in kolom e > 1000
De rijen met een celwaarde >100 moeten worden geblokkeerd
de rijen met een celwaarde tussen 100 en 1000 moeten bewerkbaar zijn

In de macro heb ik het rijen verbergen gerealiseerd. De rijen blokkeren lukt me niet

 

[sylvester-ponte]

zoek de verschillen:

Sub Macro1()
ActiveSheet.Unprotect
For Each cl In [e12:e20]
    If cl.Value >= 1000 Then cl.EntireRow.Hidden = True
Next

For Each cl In [e12:e20]
    If cl.Value <= 100 Then
        cl.EntireRow.Locked = True
    Else
        cl.EntireRow.Locked = False
    End If
Next
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

 

[HSV]

Of:

Sub hsv()
Dim cl As Range
Application.ScreenUpdating = False
Blad1.Unprotect
  Cells.Locked = False
    For Each cl In Columns(5).SpecialCells(2, 1)
      cl.EntireRow.Hidden = cl > 1000
      cl.Locked = cl < 100
     Next cl
 Blad1.Protect , 0, , , 1
End Sub

Moeten trouwens de cellen < 100 niet geblokkeerd worden?

 

[edmoor]

@Sylvester:
Tip:
Niet dit:

    If cl.Value <= 100 Then
        cl.EntireRow.Locked = True
    Else
        cl.EntireRow.Locked = False
    End If

Maar dit:

    cl.EntireRow.Locked = cl.Value <= 100