sasir le code demandé par unprotect en VBA

Bonjour,

j'ai un grand nombre de fichier (1560) classés dans un dossier pour lesquels je souhaite enlever la protection pour leur appliquer une macro (APPLI), le code de désactivation est tout simple (33)

voici le code que j'ai tapé et qui marche très bien sauf qu'il faut entrer le code à chaque fichier :

Sub TEST()
Dim Fich As String
Const chemin = "C:\Documents and Settings\XX\Bureau\TEST MACRO MULTIPLE\A APPLIQUER\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
Call APPLI
Workbooks(Fich).Close True 'ou true si tu enregistres
Fich = Dir
Loop
End Sub

________________________
Sub APPLI()
'
' deverouille Macro
'

'
ActiveSheet.Unprotect
Sheets("FEUILLE1").Select
ActiveSheet.Unprotect
Sheets("FEUILLE2").Select
ActiveWorkbook.Save
End Sub
_____________________________________________________________
En fait comment et où dois je intégrer la réponse au mot de passe


Par avance Merci