Clearing Cells

[Noz2k]

Am having a problem clearing cells in my code, this has been working without any problem for months now, and am unsure what has changed to cause it to stop working.

Anyway here is the code

Sheets("Report").Select
Sheets("Report").Unprotect "password"
Sheets("Report").Range("A265:N624").Select
Range("A265:N624").Clear
Range("A265:N624").EntireRow.Hidden = True
Sheets("Report").Protect "password"
 For Each cl In Sheets("Report").Range("A1:N264").Cells
                            If cl.Locked = False Then
                                If cl.MergeCells = True Then
                                    Set clMerge = Range(cl.Address).MergeArea
                                    clMerge.ClearContents
                                Else
                                    cl.ClearContents
                                End If
                            End If
                                Next cl

the error message I get is

"Run-time error '1004':

The cell or chart that you are trying to change is protected and therefore read-only.

To modify a protected cell or chart, first remove protection using the Unprotect Sheet command (Review tab, Changes group). You may be prompted for a password."

Any idea what might be causing this. Or how to find out what cell the error is occuring because of.

 

[prajul89]

On which line the Error happens?

 

[Noz2k]

The error occured on the line

clMerge.ClearContents

I think I found the cause. 1 of the users had changed the cell properties of 1 of the merged cells to locked, when it should have been unlocked. Am unsure why this affected the code at that point though?

Have changed the cell back to unlocked and it seems to have fixed the problem though.

 

[Gary McMaster]

how to find out what cell the error is occuring because of.

Sheets("Report").Select
Sheets("Report").Unprotect "password"
Sheets("Report").Range("A265:N624").Select
Range("A265:N624").Clear
Range("A265:N624").EntireRow.Hidden = True
Sheets("Report").Protect "password"
 For Each cl In Sheets("Report").Range("A1:N264").Cells
            [COLOR=Red]Debug.Print cl.Address ' VBA Immediate (debug window)
            'or cl.Interior.ColorIndex = 3 ' On screen fill color[/COLOR]
                            If cl.Locked = False Then
                                If cl.MergeCells = True Then
                                    Set clMerge = Range(cl.Address).MergeArea
                                    clMerge.ClearContents
                                Else
                                    cl.ClearContents
                                End If
                            End If
                                Next cl

Gary

 

[Noz2k]

Thanks, I've never used debug.print, that should come in handy with finding the problem quicker when the next one occurs.