Try this. I think It's what you want, well I hope so anyway!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then
MsgBox "My Message", vbInformation, "My Message"
End If
End Sub