Gruppe
Ereignis
Bereich
SelectionChange
Thema
Zellschutz nur für Formeln
Problem
Es sollen nur die Zellen mit Formeln geschützt werden. Bei Neueingaben von Formeln soll dies erkannt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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