In article , Ron de Bruin
writes
You can try this event in the sheet module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = True Then MsgBox "Sorry this cell is locked"
End Sub




Hi Ron

Yes , that would do it. Seems to be single click rather than double as
in the standard Excel popup.

Is there a way to apply it to the whole workbook at one go , or do I
need to put it in every worksheet separately , do you know?

Great stuff Ron - Thanks.