Public Sub Protect_Cells(bInterior As Boolean)
    Dim rCell As Range, rRange As Range, rCr As Range
    Dim bLock As Boolean

    Worksheets("Finance").Unprotect "lex"
    On Error Resume Next
    
    Set rRange = Worksheets("Finance").Range("A1:m80")
    If rRange Is Nothing Then MsgBox "Range with mistake", vbCritical, "Error": Exit Sub
    
    Set rCr1 = Worksheets("Finance").Range("b1")
    'Set rCr2 = Worksheets("Finance").Range("b12")
    'Set rCr3 = Worksheets("Finance").Range("b14")
   ' If rRange Is Nothing Then MsgBox "Range with mistake", vbCritical, "Error": Exit Sub
   
    bLock = True

    rRange.Locked = Not bLock
    
    For Each rCell In rRange
        If bInterior Then
            If rCell.Interior.color = rCr1.Interior.color Then rCell.Locked = bLock
       Else
       rCell.Locked = False
       '     If rCell.Font.Color = rCr.Font.Color Then rCell.Locked = bLock
End If
    Next rCell
  
    ActiveSheet.Protect "lex"
End Sub