Een zonnige goedendag aan alle oplossers.

Ik heb een klein probleem met de protectie van de sheets.
Deze protectie gebeurd in een VB code.

In het bestand worden 12 nieuwe sheets bijgevoegd.
Iedere nieuwe sheet krijgt een naam.
Aan de hand van sheet "Blanco maand" worden de 12 sheets aangepast.(copy paste).
Er gebeuren nog enkele aanpassingen via VB modules .
Voordat de volgende sheet geselecteerd word staat de code
Application.Activesheet.Protect "*******"
"*****" = password


enz.voor de 11 andere maanden.
Probleem is nu dat enkel de sheet "januari" protect is.
De anderen niet, iemand enig idee ?

Thanks

Firmin

ps bestand te groot voor bijlage