Bonjour,

Dans un classeur d'une dizaine de feuilles, j'en protège 4 par en codant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        motpass = motpass1 + "Data"
        Application.Worksheets("Data").Protect (Password = motpass)
        Application.Worksheets("Data").Protect (Contents = True)
 
        motpass = motpass1 + "Base"
        Application.Worksheets("Base").Protect (motpass)
        Application.Worksheets("Base").Protect (Contents = True)
 
        motpass = motpass1 + "Impression"
        Application.Worksheets("Impression").Protect (Password = motpass)
        Application.Worksheets("Impression").Protect (Contents = True)
 
        motpass = motpass1 + "BaseAg"
        Application.Worksheets("BaseAg").Protect (Password = motpass)
        Application.Worksheets("BaseAg").Protect (Contents = True)
Puis, selon le cas, je déprotège les feuilles par le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
        motpass = motpass1 + "Base"
        Application.Worksheets("Base").Unprotect (motpass)
 
        motpass = motpass1 + "Data"
        Application.Worksheets("Data").Unprotect (motpass)
 
        motpass = motpass1 + "Impression"
        Application.Worksheets("Impression").Unprotect (motpass)
 
        motpass = motpass1 + "BaseAg"
        Application.Worksheets("BaseAg").Unprotect (motpass)
Seul la feuille "Base" est déprotégée.

Cela ne vient pas du code car c'est un copie collé ou seul les nom des feuilles ont changé.
Ce n'est pas sur les feuilles car lorsque je texte avant de lancer mon code tout marche bien.
Je n'ai pas de code dans mes feuilles.
Je lance le code de protection et de déprotection depuis une feuille qui n'est pas une des feuilles protégée.

Je suis sur Office 2003 pro et 2000 pro

Bref, je ne sais plus quoi penser.

Merci