Добрый день! подскажите пожалуйста почему этот макрос не запрещает доступ к ячейкам определенного цвета, если они объединены
[vba]Код
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
[/vba]
Как сделать чтобы объед.. ячейки тоже блокировались??