Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Lock Range of Cells
Hi,
I have the following code that isn't working to lock the range of cells listed on ss selected. By applying activesheet.protect, do I still need to go to formatcells or toolsprotection and set a password to protect this sheet or does this line of code provide for that? Sub DTProtectWhiteSpaceAllProd() Worksheets("DT").Select Cells.Select Selection.Locked = False Range("A146:A160").Select Selection.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub If anyone can tell me what I'm doing wrong I would appreciate it. Thanks, Pam |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Lock Range of Cells
You code tests OK for me. One minor suggestion is to unlock the sheet before
running your code. Sub DTProtectNoPassword() Worksheets("DT").Select ActiveSheet.Unprotect 'enure it is unlocked Cells.Select Selection.Locked = False Range("A1:A16").Select Selection.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Sub ProtWithPW() Worksheets("DT").Select ActiveSheet.Unprotect Password:="yourPassword" Cells.Select Selection.Locked = False Range("A1:A16").Select Selection.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="yourPassword" End Sub -- Steve "Pam" wrote in message ... Hi, I have the following code that isn't working to lock the range of cells listed on ss selected. By applying activesheet.protect, do I still need to go to formatcells or toolsprotection and set a password to protect this sheet or does this line of code provide for that? Sub DTProtectWhiteSpaceAllProd() Worksheets("DT").Select Cells.Select Selection.Locked = False Range("A146:A160").Select Selection.Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub If anyone can tell me what I'm doing wrong I would appreciate it. Thanks, Pam |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Lock or Unlock Range of Cells on Worksheet_Change Event | Excel Worksheet Functions | |||
How do i can lock more than one range in worksheet | Excel Discussion (Misc queries) | |||
Excel should lock individual cells or range only | Excel Worksheet Functions | |||
Lock Cells with Specify Range If Cells contains value | Excel Programming | |||
Unable to Lock a Range | Excel Programming |