Try the below....

Me.Unprotect Password:="dist"
ActiveSheet.Cells.Locked = True
Selection.Locked = False
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
Me.Protect Password:="dist"

If this post helps click Yes
---------------
Jacob Skaria


"Alberto Ast" wrote:

I have a range of cells selected... using macros how can I unprotect all
those in the range that do not have formulas on it?