Macro Excel

Mes feuilles (elles sont très nombreuses) sont protégées par mot de passe.

Pour les déprotéger par macro je n'ai aucun probleme voir ci-dessous

ActiveSheet.Unprotect "password"
Sheets("27-06-2004").Select
ActiveSheet.Unprotect "password"
Sheets("28-06-2004").Select
ActiveSheet.Unprotect "password"

Mais par contre quand je doit faire une correction dans l'ensemble des
feuilles, et que je doit les reprotéger avec le meme mot de passe, je n'y
arrive pas; elle seront protégés sans password.

Comment dois-je faire pour intégrér le mot de passe dans la macro

Merci