Delete contents of unprotected cells

girapas

Board Regular
Joined
Apr 20, 2004
Messages
150
I have a sheet whith some protected cells. I fill unprotected cells with a large number of data and print them. Then I try to delete that data using a macro (as in topic 666048) by selecting a range that includes protected and unprotected cells -it's very very difficult to reference to all cells I want to delete. However, the macro doesn't run giving errors like 'cannot write to protected cells' or 'cannot change part of a merged cell'.
Thanks in advance
 

Some videos you may like

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.

SteveO59L

Well-known Member
Joined
Apr 21, 2004
Messages
7,896
Something like

Dim c As Range, rng
Set rng = Range("e13:m26")
For Each c In rng
If c.Locked = False Then
c.Value = ""
End If
Next c
 

Justinlabenne

Well-known Member
Joined
Jun 12, 2004
Messages
957
If you have merged cells also:

Code:
Sub ClearMergedUnlocked()
' Clears cells that are unlocked and merged
    Dim rCell As Range, rRng As Range

    Set rRng = ActiveSheet.UsedRange
    For Each rCell In rRng
        If Not rCell.Locked Then
            rCell.MergeArea.ClearContents
        End If
    Next rCell
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,118,812
Messages
5,574,458
Members
412,595
Latest member
slim313
Top