hallo,
ich habe einen Code, der mir auf die Arbeitsmappe einen Schreibschutz setzt. Das funktioniert auch ganz gut. Jedoch kann die Farbe der Zelle dann nicht mehr geändert werden. Kann man den Code so anpassen, dass das Ändern der Farbe der Zelle trotz Schreibschutz möglich ist?
Mein Code:
Private Sub schuetzen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="xxxx", Contents:=True, UserInterfaceOnly:=True, AllowFormattingRows:=True, AllowFormattingColumns:=True
ws.EnableOutlining = True
ws.EnableAutoFilter = True
Next
End Sub |