How can I erase all non-locked cells in a protected worksheet with one keystroke

YvonneC1190 That means that the code has to loop through some 50,000 cells. That will make it run for an excessively long time.

Is there a way we can limit the ranges the code has to inspect?

HansVogelaar Thank you.  I did try this and updated the array to show all 5 sheets.  The macro ran for 3 minutes, and ended after one sheet.  I updated it to rearrange the sheet order from left to right rather than right to left, but got the same results.   The only sheet that is getting cleared is "workding data".  Each sheets if approximately 10,000 cells so is it possible it is just too large?   

Here is my change to the array... 
' Change the array as needed
For Each ASheet In Worksheets(Array("Critical Illness", "Accident", "Sheet1", "combined all", "working data"))
Set WorkRange = ASheet.UsedRange

YvonneC1190 

You can use the ClearSpecific macro from one of my previous replies:

Sub ClearSpecific()
    Dim ASheet As Worksheet
    Dim WorkRange As Range
    Dim UnlockedRange As Range
    Dim Cell As Range
    If MsgBox("Are you sure you want to clear unlocked cells on specific sheets?", _
            vbYesNo + vbQuestion) = vbYes Then
        ' Change the array as needed
        For Each ASheet In Worksheets(Array("ThisOne", "ThatOne", "AnotherOne"))
            Set WorkRange = ASheet.UsedRange
            For Each Cell In WorkRange
                If Not Cell.Locked Then
                    If UnlockedRange Is Nothing Then
                        Set UnlockedRange = Cell
                    Else
                        Set UnlockedRange = Union(UnlockedRange, Cell)
                    End If
                End If
            Next Cell
            If Not UnlockedRange Is Nothing Then
                UnlockedRange.ClearContents
            End If
        Next ASheet
    End If
End Sub

Edit Array("ThisOne", "ThatOne", "AnotherOne") so that it lists the five sheets that you want to clear. Each sheet name enclosed in double quotes, and separated by commas.