Ôter la protection de centaines de feuille Excel

Bonjour,

Un internaute m'a déjà transmis la macro suivante afin de déprotéger des feuilles de fichiers Excel. J'en avais une bonne centaine à l'époque. Aucun mot de passe n'était nécessaire.
------

Sub Déprotége_Fichiers()
Dim Chemin As String, Fichier As String
Dim Feuille As Worksheet
Chemin = ThisWorkbook.Path & "\"
Fichier = Dir(Chemin & "*.xls")
'boucle sur tous les classeurs
Do While Len(Fichier) > 0
If Fichier <> ThisWorkbook.Name Then
'ouvre le fichier
Workbooks.Open Filename:=Chemin & Fichier
'boucle sur chaque feuille
For Each Feuille In ActiveWorkbook.Worksheets
'déprotège
Feuille.Unprotect
Next
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Fichier = Dir()
Loop
End Sub

----
Maintenant, j'ai encore plusieurs fichiers à modifier. Mais les feuilles sont protégées par un mot de passe. Je connais ce mot de passe.

Quelqu'un peut-il me dire où insérer mon mot de passe dans cette macro pour ne pas avoir à le réécrire chaque fois?