Blattschutz und Zeilen einfügen
05.04.2016 16:50:41
tom
ich habe folgendes Problem. Bisher funktionierte mein Blattschutz per Makro.
Nun habe ich ein paar Zeilen hinzugefügt, damit der Benutzer der Tabellen Zeilen einfügen kann.
Jetz geht aber das Passwort nicht mehr, sondern man kann den Blattschutz per Klick lösen. Jedoch sehe ich das Problem im Makro nicht:
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
End If
End Sub
VG
Anzeige