How to have errr msg pop up when user clicks on locked cell

[perfection]

I have locked certain cells of a worksheet and password protected the
sheet. When a user clicks on the cells i have locked i wish that a
mesage pops up telling him thath eis unauthorised to use those cells
or something equivalent - Right now the cursor merely moves back to
last used unlocked cell. can this ne done?

PS By default when i proetect a worksheet all cells are locked and
when i click on a locked cell a warning does pop up informing me to
unprotect worksheet etc but when i lock selected cells this warning
does not pop up and instead behaves as explained above

 

[excelent]

Rightclick on sheet-tab and insert this in program-code window


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox ("This cell is locked")
End Sub


"perfection" skrev:

 

[excelent]

ups-forgot somthing use this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1,A5,B7,D11")) Is Nothing Then Exit Sub '
insert ur locked cells here
MsgBox ("This cell is locked")
End Sub


"excelent" skrev:

 

[JMB]

Or perhaps test to see if the cell is locked and worksheet protection is
enabled?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked And Target.Parent.ProtectContents Then
MsgBox "Cell is locked"
End If
End Sub

 

[mikerickson]

Have you used the EnableSelection property? It allows you to control the
selection behaviour of a protected worksheet

Code: