Problem with Locking cells

Hi

How about

Cells.SpecialCells(xlCellTypeFormulas).Locked = True
Cells.SpecialCells(xlCellTypeConstants, 2).Locked = True

That will lock the text and formula cells.

HTH

rylo

Thanks for the input Rylo. I have tried that before.
But I can not get that into the code below and work.

Can you see anything wrong with the syntax?

Hi

I think you forgot to add your code.


rylo

Thanks Rylo,

Here is the code.

Dim SI As Worksheet
On Error Resume Next
For Each SI In Worksheets
With SI
.Unprotect "Password"
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True

Cells.Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.Locked = False


.Protect "Password"
End With
Next SI

Hi

The code below will lock all cells on the sheet, then unlock only the constats.

Sub aaa()
  Dim SI As Worksheet
  On Error Resume Next
  For Each SI In Worksheets
    With SI
      .Unprotect "Password"
      .Cells.Locked = True
      .Cells.SpecialCells(xlCellTypeConstants, 1).Locked = False
      .Protect "Password"
    End With
  Next SI

End Sub

This code will unlock all cells, and then lock the formulas and text.

Sub bbb()
  Dim SI As Worksheet
  On Error Resume Next
  For Each SI In Worksheets
    With SI
      .Unprotect "Password"
      .Cells.Locked = False
      .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
      .Cells.SpecialCells(xlCellTypeConstants, 2).Locked = True
      .Protect "Password"
    End With
  Next SI

End Sub

rylo