Formelschutz
11.10.2023 17:43:05
jomsn
ich habe früher mal eine Datei mit mehreren (Arbeits-)Mappen gemacht die Formeln enthielten. Damals schützte ich die "schützenswerten Mappen" mit folgendem Code:
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
Habe den Code auch von jemandem aus dem Forum erhalten.
Das funktionierte super... bis zum Wechel auf Excel 2016. Funkioniert hier auch noch, aber die Datei (über 50 Mappen) braucht "ewig" bis sie geöffnet resp. auch geschlossen ist.
Gibt es da irgendein Fehler drin oder hat wer eine andere Lösung.
Wäre froh, wenn mir jemand helfen könnte.
Gruss jomsn