Gruppe
Ereignis
Problem
Es sollen nur die Zellen mit Formeln geschützt werden. Bei Neueingaben von Formeln soll dies erkannt werden.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
For Each rng In Target.Cells
If rng.HasFormula Then
ActiveSheet.Protect
Exit Sub
Else
ActiveSheet.Unprotect
End If
Next rng
End Sub