Pouvoir sélectionner cellule verrouillées

[ascal44]

Bonjour à tous,
Que faut il rajouter à ce code pour pouvoir sélectionner les cellules verrouillées sans pouvoir les modifier ?

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells


Merci pour vos réponses

 

[Pierrot93]

Re : Pouvoir sélectionner cellule verrouillées

Bonjour Ascal,

peut être comme ci dessous, si j'ai bien compris :

With ActiveSheet
    .EnableSelection = xlNoRestrictions
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End With

bonne journée
@+

 

[ascal44]

Re : Pouvoir sélectionner cellule verrouillées

Merci Pierrot 93 c'est OK