Lock Range of Cells

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
 
A

AltaEgo

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top