Zellschutz entfernen in allen Zellen die keine Formel enthalten

In allen Zellen, die keine Formeln beinhalten, 
soll der Zellschutz entfernt werden. 
Möglichkeit 1 (ohne Zellmarkierungen):
Sub Formeln_schützen()
   'Zellinhalt mit Werten -> entsperren
   Cells.SpecialCells(xlCellTypeConstants, 1).Locked = False
   'Zellinhalt mit Formeln -> sperren
   Cells.SpecialCells(xlFormulas, 1).Locked = True
   'Blatt schützen
   ActiveSheet.Protect password:="Max"
End Sub
 
Möglichkeit 2 (mit Zellmarkierungen):
Sub Formeln_schützen()
    'Zellinhalt mit Werten -> entsperren
    Selection.SpecialCells(xlCellTypeConstants, 1).Select
    Selection.Locked = False
    'Zellinhalt mit Formeln -> sperren
    Selection.SpecialCells(xlFormulas, 1).Select
    Selection.Locked = True
End Sub