Protection avec macro

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.