Hallo,
ich habe nachfolgendes Problem mit meinem Excel-Makro, das zur Nutzung der Gruppierungsfunktion bei Aktivierung des passwortgeschützten Blattschutzes dient. Das bestehende Makro soll um die Funktion erweitert werden, dass Zellen, die nicht mit Schreibschutz versehen sind, nach Ausführung des Makros weiterhin formatiert werden können.
Das Makro (ohne Zellformatierungsmöglichkeit) sieht wie folgt aus:
Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="Facility"
ws.EnableAutoFilter = True
ws.EnableOutlining = True
Next ws
End Sub
Wie kann ich dieses Makro um die Zellformatierungsfunktion für ungeschützte Zellen erweitern?
Über eine praktikable Rückmeldung freue ich mich.
Besten Dank im voraus und viele Grüße
Martin
|