Discussion :

[Gamal le Celte]

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

[SfJ5Rpw8]

relis ton code ... la feuille base est la seule qui n'est pas protégé comme les autres...!
d'ailleurs fonctionne-t'il ce code de protection ..?

[Gamal le Celte]

Oups ! je suis vraiment désolé. J'ai le nez dessus et je n'ai rien vu.

Ce code marche et merci à toi bbil pour ton aide.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
     consult = "mpdeconsult"
     admin = "mpdeadmin"
     motpass1 = "ferme"
 
     If passeport <> consult And passeport <> admin Then
         rep = MsgBox("Vous n'avez pas l'autorisation d'utiliser ce classeur", vbCritical, "Mot de passe")
         Workbooks("monfichier.xls").Close SaveChanges:=False
 
     End If
 
     If passeport = consult Then
 
        motpass = motpass1 + "Data"
        Application.Worksheets("Data").Protect (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 (motpass)
        Application.Worksheets("Impression").Protect (Contents = True)
 
        motpass = motpass1 + "BaseAg"
        Application.Worksheets("BaseAg").Protect (motpass)
        Application.Worksheets("BaseAg").Protect (Contents = True)
 
     End If
 
     If passeport = admin Then
 
        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)
 
        Sheets("Ouverture").Select
 
     End If

passeport est le mot de passe de l'utilisateur entré avec une form