VBA-Problem mit protect / unprotect
14.12.2017 15:12:11
Holger
ich bitte bei folgendem Problem um Hilfe. Ich habe ein Formular entwickelt, bei dem alle Zellen bis auf die Eingabefelder gesperrt sind (Zellschutz + Blattschutz). Damit die Benutzer trotzdem eine Gliederung auf- und einblenden können, war ein kleines VBA-Makro erforderlich, das beim Öffnen automatisch gestartet hat. Hat auch alles geklappt, solange ich keinen PASSWORTSCHUTZ hatte.
Ich habe meine Lösung jetzt um den Passwortschutz ergänzt. Dieser soll beim Öffnen erst entfernt werden, dann werden die nötigen Änderungen vorgenommen, danach wird der Schutz wieder aktiviert. Und das für alle Register. KLAPPT ABER NICHT! Wenn ich die Datei nach Durchlauf des Makros prüfe, kann ich in jedem Register den Schutz OHNE PASSWORTEINGABE aufheben. Was mache ich falsch?
Vielen Dank schonmal für Eure Hilfe!
Holger
Und hier der Code:
Sub Workbook_Open()
Dim i As Long
Dim dummy As String
For i = 1 To Worksheets.Count
dummy = Sheets(i).Name
Sheets(dummy).Activate
ActiveSheet.Unprotect Password:="test"
Sheets(i).Protect userinterfaceonly:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
ActiveSheet.Protect Password:="test"
Next i
End Sub