Private Sub CommandButton1_Click()
Dim ws As Worksheet, c As Range
For Each ws In ThisWorkbook.Worksheets
ws.Protect "test", UserInterfaceOnly:=True
ws.Cells.Locked = True 'RAZ
For Each c In ws.Range("J11:W" & ws.Range("W1000000").End(xlUp).Row)
If c.Interior.ColorIndex = 46 Then c.Locked = False
Next c, ws
End Sub