Protected Worksheets with info that needs to be deleted.

[Joe Clark]

Excell 2003. I have a worksheet that is protected, and people are allowed to
input data in the non-protected cells. Is there any way too highlight the
whole worksheet and delete the information that is in the non-protected cells
with out deleted the formulas in the protected cells?

 

[Barb Reinhardt]

Try this

Sub ClearUnlockedCells()
Dim myRange As Range
Dim r As Range
Dim aWS As Worksheet

Set aWS = ActiveSheet

Set myRange = Nothing
For Each r In aWS.UsedRange
If Not r.Locked Then
If myRange Is Nothing Then
Set myRange = r
Else
Set myRange = Union(myRange, r)
End If
End If
Next r

If Not myRange Is Nothing Then
myRange.ClearContents
End If
End Sub

 

[Joe Clark]

Where do I input this information?

 

[Barb Reinhardt]

Alt F11
Insert a module
Paste this in.

Barb Reinhardt

 

[Joe Clark]

I posted the info into the module, how do I run the module?

Thanks

 

[Barb Reinhardt]

Select the sheet you want to update. Press F8. Run the macro.

Barb Reinhardt