Supportnet / Forum / Tabellenkalkulation
Makro: Zellen mit Formeln schützen
Frage
Ich habe in einer Excel-Tabelle erfolgreich ein Makro aktiviert, dass Zellen mit Formeln schützt. Diese Tabelle wird von anderen Nutzern verwendet und diese müssen, je nach Bedarf, Zeilen einfügen. Dies ist auch möglich, jedoch werden die Formeln nicht automatisch mitkopiert. Gibt es die Möglichkeit, das Makro so umzuschreiben, dass die eingefügten Zeilen die Formeln enthalten und ebenfalls geschützt sind?
Vielen Dank!
Hier das Makro:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
´Variable deklarieren
Dim Zelle As Range
´For/Each-Schleife zum Abfragen der Zellen
For Each Zelle In Target.Cells
´Wenn die durch die Schleife angesprochenen Zelle
´eine Formel enthält und die Variable "Zelleschutz_aus"
´gleich dem Wert 0, dann...
If Zelle.HasFormula And Zelleschutz_aus = 0 Then
´...Blattschutz aktivieren und...
ActiveSheet.Protect "Excelbeispiele"
´...Prozedur beenden,...
Exit Sub
´...ansonsten...
Else
´Blattschutz aufheben
ActiveSheet.Unprotect "Excelbeispiele"
´Abfrage Ende
End If
´Nächsten Schleifendurchlauf starten
Next Zelle
´Variable "Zelleschutz_aus" auf den Wert 0 setzen
Zelleschutz_aus = 0
End Sub

