xlUnlockedCells

[ericeul]

Hallo,

onderstaand stukje code zorgt er voor dat m'n sheet protected staat en de gebruikers toch nog kunnen filteren

ActiveSheet.Protect Password:="weekplanpp", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

Wat ik echter ook nog wil is dat ze de UnlockedCells kunnnen selecteren om eventueel te copieeren.

xlUnlockedCells:=True heb ik toegevoegd aan de code maar dat werkt niet?

Iemand enig idee?

Alvast bedankt

Eric

 

[Ginger]

Ericeul, zoiets wellicht?

    With ActiveSheet
        .Protect Password:="weekplanpp", DrawingObjects:=True, Contents:=True, Scenarios:=True , AllowFiltering:=True
        .EnableSelection = xlUnlockedCells
    End With

Groet, Leo

 

[ericeul]

Het werkt niet maar dat ligt blijkbaar niet aan je code.

Wat me ondertussen opgevallen is is dat de protectionformat van de cellen steeds nà het draaien van de macro terug op locked worden gezet.
Uiteraard werkt "EnableSelection = xlUnlockedCells" niet meer aangezien er geen enkele meer "unlocked" staat.

Hoe behoud (bevries) ik de format "unlocked" ?

Groeten