Visual Basic Code, Locking Cells depending on Value - V.03

[Princess88]

Hi,

I'm new to the forum, so I apologise if this is a ramble of non-sense!
-

I need to run a code for resource cover in the office - I need the sheet to lock the column where leave can be entered if the overall cover falls below 70%. The % cell is conditionally formatted to show as 'red' if the cover is less than 70%.

Essentially, I need it to be something along the lines of:

If [G37] = <70% Then [G6:G31].Locked

(obviously it will be more complex than that...but thats the gist of what I need it to do!!)

Also, is there a way for the code to run this separately for every column?

I really appreciate any help!

Princess88

 

[doofusboy]

Here's one way:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
    For i = 1 To 10 ' columns A through J
        If Cells(37, i).Value < 0.7 Then
            Range(Cells(6, i), Cells(31, i)).Locked = True
        Else
            Range(Cells(6, i), Cells(31, i)).Locked = False
        End If
    Next i
    
End Sub