How to warn that one cell, within a range, is locked?

by the same logic...

If Range("A5:d9").Locked Then
MsgBox "The range A5:D9 cell is protected"

Thanks, rcm; i've tried that and the message does not appear. I guess that will do when the whole range is locked.
But what if only one or any two cells are locked, not the whole range?
ACA

If Range("A5:d9").Locked Then
MsgBox "The range A5:D9 cell is protected"

I believe the above code will work if the whole range is locked but not if only a few cell within that range are. Try this:

Sub Identify_Locked_Cells()
Dim myRange As Range, rCell As Range
Dim strRange As String

Set myRange = Range("A5:D9")

For Each rCell In myRange
    If rCell.Locked = True Then
        If strRange = "" Then
            strRange = rCell.Address
        Else
            strRange = strRange & ", " & rCell.Address
        End If
    End If
Next rCell

MsgBox ("The following cells are locked: " & strRange)

End Sub

how about the change macro that would test only the specified range?

Thank you, stnkynts. That works all right. I didn't think it was so complex though; but it's all right. Thanks
ACA

Thanks. rcm. but I am not sure what the "change macro" is.
Anyway, somebody gave me an answer. Bye.
ACA