Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to have errr msg pop up when user clicks on locked cell
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to have errr msg pop up when user clicks on locked cell
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: 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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to have errr msg pop up when user clicks on locked cell
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: 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: 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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
How to have errr msg pop up when user clicks on locked cell
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 "excelent" wrote: 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: 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: 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 |
#5
|
|||
|
|||
Have you used the EnableSelection property? It allows you to control the selection behaviour of a protected worksheet
Code:
Worksheets("sheet1").EnableSelection = xlNoSelection |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
call excelsheet within excelsheet when user clicks excelsheet ico | Excel Worksheet Functions | |||
How can user move in locked worksheet but not copy cell contents? | Excel Worksheet Functions | |||
Locked by User | Excel Discussion (Misc queries) | |||
Open an Outlook folder when a user clicks on a command button ... | Excel Discussion (Misc queries) | |||
excel locked by another user=myself | Setting up and Configuration of Excel |