Envoi d'une partie d'une feuille par mail

Bonjour la communauté,

Je sollicite votre aide car j'ai un petit soucis avec un code que j'ai écris :

Sub Test02()

' Mail avis nouvelle DU

    ActiveSheet.Range("C4:K24").Select ' la plage de cellules à envoyer
    ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope
        .Introduction = "Emission d'une nouvelle DU :"
        .Item.To = "MrX@EntrepriseX.fr"
        .Item.Subject = "Nouvelle DU"
        .Item.Send
    End With

    Range("E4").Select

End Sub

Ce code fonctionne parfaitement lorsque je n'ai pas de verrouillage de la feuille par mot de passe.

Je souhaite intégrer le mot de passe dans le code pour que cela fonctionne avec une feuille verrouillée.

En gros : déverrouillage la feuille, envoi du mail puis reverrouillage la feuille.

Et la je sèche ^^

Quelqu'un peut-il m'aider?

Dsl, je n'ai pas transmis le fichier car j'ai plein d'infos sensibles dessus. Si vraiment besoin, je les enlève et transmets une copie.

Merci.

Cordialement.

J'ai trouvé ma solution qui était toute bête au final.

Sub Test02()

' Mail avis nouvelle DU

    Sheets("Demande").Unprotect "MotDePasse"
    ActiveSheet.Range("C4:K24").Select ' la plage de cellules à envoyer
    ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope
        .Introduction = "Emission d'une nouvelle DU :"
        .Item.To = "MrX@EntrepriseX.fr"
        .Item.Subject = "Nouvelle DU"
        .Item.Send
    End With
    Range("E4").Select
    Sheets("Demande").Protect "MotDePasse"

End Sub