1004 Error when sheet is locked

[eli_m]

Hi,

I am getting this error:

With this code:

Private Sub Worksheet_Calculate()

' Ignore Errors after Sorting
Dim r As Range: Set r = Range("A2:AY200")
Dim cel As Range

For Each cel In r
  With cel
    .Errors(8).Ignore = True 'Data Validation Error
    .Errors(9).Ignore = True 'Inconsistent Error
    .Errors(6).Ignore = True 'Lock Error
  End With
Next cel

End Sub

This only happens when I lock the sheet. Is there a way to have both?

Thanks in advance!

 

[ChrisFoster]

Private Sub Worksheet_Calculate()

ActiveSheet.Unprotect

Dim r As Range: Set r = Range("A2:AY200")
Dim cel As Range

For Each cel In r
    With cel
        .Errors(8).Ignore = True 'Data Validation Error
        .Errors(9).Ignore = True 'Inconsistent Error
        .Errors(6).Ignore = True 'Lock Error
    End With
Next cel

ActiveSheet.Protect

End Sub