lock cells with values

[Alberto Ast]

with below statements

Range("A130").Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True

I can select a range and then lock any cell with formulas...

How do I do same but want to lock any cell with formulas and/or values?

 

[Mike H]

Hi,

Dim MyRange As Range
Set MyRange = Range("A130").SpecialCells(xlCellTypeConstants)
Range("A130").SpecialCells(xlCellTypeFormulas).Select
Set MyRange = Union(MyRange, Selection)
MyRange.Locked = True

Locking has no effect until the sheet is protected.

Mike

 

[Rick Rothstein]

with below statements

Range("A130").Select
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True

I can select a range and then lock any cell with formulas...

On Error Resume Next
Range("A130").SpecialCells(xlCellTypeFormulas).Locked = True

How do I do same but want to lock any cell with formulas and/or values?

On Error Resume Next
Union(Range("A130").SpecialCells(xlCellTypeConstants), _
Range("A130").SpecialCells(xlCellTypeFormulas)).Locked = True