Code for locking all cells

[bamaisgreat]

Is there some code to protect and unprotect a sheet were it will lock all the cells? I currently have this.

ActiveSheet.Unprotect

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[Firefly2012]

After the sheet is unprotected, you need to make sure all the cells are locked:

activesheet.usedrange.locked = true

before you re-apply the protection

 

[bamaisgreat]

ok. I should have showed you the whole Macro. My objective is to have the Macro do that for me. I have cells that can be edited, but when I run this macro I would like for it to lock all the cells for me.. Is that possible?

Sub FINAL_BURNING_MACHINES()
'
' final Macro
'
'
ActiveSheet.Unprotect
Range("J24:J26").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = 1
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "FINAL"
Range("A1:T23").Select
ActiveSheet.PrintOut

Range("A1:T23").Select
ActiveWorkbook.Save
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True



ActiveWorkbook.Save
End Sub

 

[Firefly2012]

If you lock the cells then users won't be able to edit them - is that what you wanted?

If so, cleaned up code could be:

Sub FINAL_BURNING_MACHINES()
'
' final Macro
'
'
With ActiveSheet
  .Unprotect
  With .Range("J24:J26").Interior
    .Pattern = xlSolid
    .PatternColorIndex = 1
    .Color = 255
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
  .Range("J24").FormulaR1C1 = "FINAL"
  .PrintOut
  .UsedRange.Locked = True
  .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
ActiveWorkbook.Save
End Sub

 

[bamaisgreat]

yes, when I run the Macro I want the entire sheet locked were it is not able to be modified. Thanks

 

[bamaisgreat]

Do you know what to add if I wanted it password protected..

 

[Firefly2012]

In the code above you would just need to add a Password argument:

.Protect Password:="SomePassword"DrawingObjects:=True, Contents:=True, Scenarios:=True