Protection avec macro

[gg21]

Bonjour,
Dans une macro pour enlever puis remettre la protection sans mot de passe d’une feuille c’est simple :

ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Extrait du code ci-dessous

Sub Macro6()
ActiveSheet.Unprotect
Range("C2").Select
Selection.Copy
Range("F10").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Par contre si la feuille est protégée par un mot de passe je ne sais comment procéder.
Cela est-il possible ? Et si oui pouvez-vous me donner la solution.
Remerciements anticipés et bonne journée.

 

[Creepy]

Bonjour à toutes & tous,

Feuil1.Unprotect PassWord:="Creepy"

++

Creepy

 

[gg21]

Merci Creepy,
et Bonne journée.