Blattschutz für alle Sheets
16.05.2018 09:43:17
Linda
ich hab ein für mich unerklärliches Problem,
Ich habe unter "Diese Arbeitsmappe" eingegeben, dass beim Öffnen der Arbeitsmappe alle Worksheets einen Blattschutz bekommen sollen. Da es vielleicht mal passieren kann, dass jmd den Blattschutz entfernt und vergisst ihn wieder zu aktivieren.
Seither hat das auch wunderbar funktioniert. Jetzt kommt plötzlich folgende Fehlermeldung:
Laufzeitfehler ´1004´:
Das eingegebene Kennwort ist ungültig. Stellen Sie sicher, dass die FESTSTELLTASTE nicht aktiviert ist und dass Sie die korrekte Groß-/Kleinschreibung verwenden.
Ich habe aber gar kein Kennwort eingegeben. Diese Fehlermeldung kommt direkt nach dem Öffnen der Mappe.
Wenn ich auf DEBUGGEN gehe ist folgende Zeile Gelb hinterlegt:
WsTabelle.Protect UserInterfaceOnly:=True, Password:="blabla"
Sub Workbook_Open()
'Für jede Seite ein Blattschutz einfügen
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Protect UserInterfaceOnly:=True, Password:="blabla"
WsTabelle.EnableOutlining = True
WsTabelle.EnableAutoFilter = True
Next WsTabelle
End Sub
Hat jmd von Euch eine Idee, was das Problem sein könnte?