Egy egyszerű példa a zárolásra:

A formázás feltétele (=$H1>200) a kijelölt terület formáján változtat, ha a H oszlopban 200-nál nagyobb az érték.

Sub locked()
    Dim sor, oszlop As Integer
   
    For sor = 1 To ActiveSheet.UsedRange.Rows.Count
        For oszlop = 1 To ActiveSheet.UsedRange.Columns.Count
            If Cells(sor, 8) > 200 Then 'itt van a feltétel
                Cells(sor, oszlop).locked = True
            Else
                Cells(sor, oszlop).locked = False
            End If
        Next
    Next
End Sub
.

A makró végig szalad az adatokkal kitöltött területen, és a feltételnek megfelelő cellákat zárolttá teszi, a nem megfelelőek esetleges zárolását feloldja.

A futtatás után le kell védened a lapot, hogy a zárolások érvénybe lépjenek.