Supportnet Computer
Planet of Tech

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

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: