Protection d'une feuille de calcul apres copie

Bonjour

lorsque je copie une feuille(protegée) depuis mon classeur A vers mon classeur B , celle ci n'est pas protégée une fois dans le classeur B

je me suis demandé s'il existait une instruction à placer apres la copie de la feuille :

Sheets("feuil1").Copy Before:=Workbooks("B.xls").Sheets(1)
ActiveSheet.Name = Référence_nom

pour celle ci soit protegée automatiquement une fois dans B avec le meme mot de passe qui m'a servi à proteger ma feuil1 du classeur A ?

Merci pour vos suggetions et conseils

Cordialement , Rocket

Bonsoir rocket, le forum,

Sheets("feuil1").Copy Before:=Workbooks("B.xls").Sheets(1)

ActiveSheet.Name = Référence_nom

Je pense en rajoutant

ActiveSheet.Protect("ton_mot_de_passe")

Amicalement

Joseph

Merci infiniment ! ca me convient