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

  • Thread starter Thread starter perfection
  • Start date Start date
P

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
 
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:
 
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:
 
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
 
Have you used the EnableSelection property? It allows you to control the
selection behaviour of a protected worksheet

Code:
 
Back
Top