Salut,
Une petite recherche sur le site t'aurait permis de trouver la solution. Dans la liste des sujets similaires en dessous de ton message, tu as la réponse attendue dans le premier fil listé.
Sub xxx ()
ActiveSheet.Unprotect Password:="Ton_mot_de_passe" 'Tu enlèves le mot de passe
.............'Ton code après avoir enlevé la protection
ActiveSheet.Protect Password:="Ton_mot_de_passe" 'Tu remets le mot de passe
End Sub
Cordialement.
NB : Si tu avais voulu joindre un fichier, il n'est pas passé