Blattschutz Zeilen einfügen
08.04.2016 14:01:15
tom
ich habe folgendes Problem: Ich habe einen Blattschutz per Makro verankert, welcher aber das Zeilen einfügen ermöglicht. Nun kann ich leider diese Zeilen nicht mit beliebigen Daten (per Hand) füllen.
Hat jemand eine Idee, wie sich das realisieren lässt?
Hier das bisher erstellte:
Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="xx"
ws.EnableAutoFilter = True
ws.EnableOutlining = True
Next ws
If ActiveSheet.Protection.AllowInsertingRows = False Then
ActiveSheet.Protect AllowInsertingRows:=True, Password:="xx"
End If
End Sub
Anzeige