msgbox if cell is locked

[scottnshelly]

I should know this by now, but can't get it right. how do i display
msgbox if the user tries to click into a locked cell on a protecte
sheet?
thanks

 

[Ron de Bruin]

There is also a way that you can't select locked cells but you want a msgbox

Try this in the sheet module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
Dim Ltrue As Boolean
For Each cell In Target
If cell.Locked Then Ltrue = True
Next
If Ltrue = True Then MsgBox "one or more cells in the selection are locked"
End Sub