Copie de feuille et protection de cellules

[stabilo2]

Bonjour,

Je crée en VBA une feuille de calcul dont certaine cellules uniquement sont éditable.
Pour cela, je protège la feuille et je déprotège les cellules nécessaires.

Cela fonctionne.

Par contre, à certains moment je veux copier la feuille en question et protéger complètement la copie.

Sub MyMacro()

Range("A1:B5").Select
Selection.Locked = False
ActiveSheet.Protect Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

' Copy sheet
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Protect Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

End Sub

Ce faisant, les cellules accessibles de la feuille initiale le restent dans la feuille copiée.
Y a-t-il un moyen de verrouiller également celles-ci, sachant que je ne sais plus à ce moment quelles cellules sont protégée et accessibles dans la feuille initiale ?

Je veux dire que la solution consistant à faire dans la feuille copiée
Range("A1:B5").Select
Selection.Locked = true
n'est pas viable pour moi (sauf si il est possible de sélectionner toutes les cellules de la feuille)

Merci d'avance.

 

[Spitnolan08]

Re : Copie de feuille et protection de cellules

Bonsoir,

Pour toute la feuille tu peux utiliser :

ActiveSheet.Cells.Locked = True

Cordialement

 

[stabilo2]

Re : Copie de feuille et protection de cellules

Merci pour la réponse rapide. Problème fixé.
Ca a l'air tout simple... mais je savais pas...