wie kann ich erreichen, dass beim Wechsel in eine Arbeitsmappe, bei der alle Zellen geschützt sind, der Schutz (nur) für die Zellen aufgehoben werden, die keine Formeln enthalten.
Danke für eure Unterstützung
Gruß
Fritz
Private Sub Worksheet_Activate()
Dim Zelle As Range
ActiveSheet.Unprotect
For Each Zelle In UsedRange
If Not Zelle.HasFormula Then
Zelle.Locked = False
End If
Next
ActiveSheet.Protect
End Sub