clear contents cells of unprotected cells

[Guest]

Hi. I am trying to clear the contents of all unprotected cells only on a
protected worksheet. Any ideas how to do it without giving the absolute cell
reference for each of the unprotected cells I want to clear?

 

[Vasant Nanavati]

Something like:

Sub Test()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then c.ClearContents
Next
End Sub

 

[Tom Ogilvy]

for each cell in activesheet.UsedRange
if cell.locked = false then
cell.Clearcontents
end if
Next

 

[Guest]

Thanks, it worked!

Something like:

Sub Test()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then c.ClearContents
Next
End Sub

 

[Guest]

Thanks, that did it!

for each cell in activesheet.UsedRange
if cell.locked = false then
cell.Clearcontents
end if
Next

 

[Guest]

Tom,

I've implemented the code you supplied for Ed, however, some of the cells
involved are merged and Error 1004 appears and says "Cannot change part of a
merged cell". Any ideas?

Thanks in advance!

 

[Dave Peterson]

change:

cell.Clearcontents
to
cell.value = ""

Tom,

I've implemented the code you supplied for Ed, however, some of the cells
involved are merged and Error 1004 appears and says "Cannot change part of a
merged cell". Any ideas?

Thanks in advance!