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