Lock Range of Cells

  • Thread starter Thread starter Pam
  • Start date Start date
P

Pam

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 format>cells or tools>protection 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
 
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
 
Back
Top