Tryng to lock with offset

[Ciccio86]

Hi, im tryng to lock a range with offset.

Sub DCHK()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False

Dim chk As OLEObject

For Each chk In ActiveSheet.OLEObjects
    If TypeName(chk.Object) = "CheckBox" And chk.Object.Value = False Then
        If chk.TopLeftCell.Offset(0, 0).Value = LP Then
            If chk.TopLeftCell.Offset(0, 1).Locked = False Then
                chk.TopLeftCell.Offset(0, 1).Locked = True
            End If
            If chk.TopLeftCell.Offset(0, -2).Locked = False Then
                chk.TopLeftCell.Offset(0, -2).Locked = True
            End If
        'chk.Visible = False
        End If
    End If
Next
  
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
End Sub

I have error "Unable to set Locked property of Range Class error" 1004 on this code

chk.TopLeftCell.Offset(0, -2).Locked = True

The cell is a merged cell i tried also to put (0, -1) but i have the same error
LP is a variable

 

[Domenic]

If your sheet is protected, you'll need to first unprotect it at the beginning of your code, and then again protect it at the end of it.