Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Protection to add a line to Remove "Select Locked Cells" ???
Sub protect()
Application.ScreenUpdating = False Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets wks.protect Password:="1234" Next wks Application.ScreenUpdating = True End Sub Sub Unprotect() Application.ScreenUpdating = False Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets wks.Unprotect Password:="1234" Next wks Application.ScreenUpdating = True End Sub Can i add a line of code to remove the TICK from "Select Locked Cells" ??? How? Corey.... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Protection to add a line to Remove "Select Locked Cells" ???
Hi Coery,
Try this: wks.Unprotect Password:="1234" wks.EnableSelection = xlUnlockedCells Thanks Corey wrote: Sub protect() Application.ScreenUpdating = False Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets wks.protect Password:="1234" Next wks Application.ScreenUpdating = True End Sub Sub Unprotect() Application.ScreenUpdating = False Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets wks.Unprotect Password:="1234" Next wks Application.ScreenUpdating = True End Sub Can i add a line of code to remove the TICK from "Select Locked Cells" ??? How? Corey.... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Protect sheet unchecking "Select locked cells" has undesiredresults | Excel Discussion (Misc queries) | |||
How do you select line or columns in "Line-Column on 2 axes" graphs? | Excel Discussion (Misc queries) | |||
Something "Odd", Sheet Protection, Locked Cells | Excel Programming | |||
Protect shouldn't default to "allow users to select locked cells" | Setting up and Configuration of Excel | |||
Using "Cells" to write "Range("A:A,H:H").Select" | Excel Programming |