Hallo allerseits,
ich habe nachfolgendes Problem mit meinem Excel-Makro, das zur Nutzung der Gruppierungsfunktion sowie zur Formatierung ungesperrter Zellen bei Aktivierung des passwortgeschützten Blattschutzes dient. Die Gruppierungsfunktion sowie die Zellformatierung funktionieren nach Ausführung des Makros, leider ist nun aber der Blattschutz ohne erneute Passworteingabe aufhebbar.
Der Makro-Code sieht wie folgt aus:
Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="MeinPasswort"
ws.EnableAutoFilter = True
ws.EnableOutlining = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
Next ws
End Sub
Wie kann ich dieses Makro umschreiben, damit der Passwortschutz für den Blattschutz erhalten bleibt?
Über eine praktikable Rückmeldung (bitte um genaue Beschreibung, da ich kein VBA-Profi bin ;-) )freue ich mich.
Besten Dank im voraus und viele Grüße
Martin
|