Discussion :

[Karatégirl77]

Bonjour !

Je souhaite protéger la structure de mon classeur et certaines zones de mes feuilles. Ca marche pas, j'ai une erreur "impossible de définir la propriete locked de la classe range" chaque fois que je lance la macro.

Voici mon code, qqu'un a une idée? Merci d'avance

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
Sub ProtectionFeuilles()
 
ActiveWorkbook.Protect structure:=True  'Protection de la structure du classeur
 
'- cas de l'onglet paramétrage
With Worksheets("parametrage")
    .Cells.Locked = False
    .Range(Cells(1, 1), Cells(1, 4)).Locked = True 'protection tableau 1
    .Range(Cells(4, 1), Cells(4, 3)).Locked = True 'protection tableau 2
    .Range(Cells(5, 1), Cells(6, 1)).Locked = True 'protection tableau 2
    .Range(Cells(9, 1), Cells(9, 8)).Locked = True 'protection tableau 3
    .Range(Cells(10, 1), Cells(11, 2)).Locked = True 'protection tableau 3
    .Range(Cells(12, 1), Cells(15, 1)).Locked = True 'protection tableau 3
    .Protect 
End With
 
'- cas de l'onglet seuils
With Worksheets("Seuils de notation")
    .Cells.Locked = False
    .Range(Cells(2, 1), Cells(3, 50)).Locked = True 'protection des lignes 1 à 3
    .Range(Cells(1, 1), Cells(1, 65535)).Locked = True 'protection colonne 1
    .Protect 
End With
 
 End Sub

[Minick]

Salut,

Ton classeur ne serait-il pas protege avant d'appliquer tes 'Lock'

Ajoute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Unprotect

Apres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets("parametrage")

pour voir.

++
Minick

[Karatégirl77]

J'ai essayé mais ca donne pareil. D'ailleurs, il me semblait que la protection du la structure du classeur n'avait pas d'influence sur le contenu des feuilles?

Mon msg d'erreur apparaît toujours, sur ce type de ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    .Range(Cells(1, 1), Cells(1, 4)).Locked = True 'protection tableau 1

[Minick]

Re,

Le Unprotect est sur la feuille et non sur le classeur

Bizarre, je viens de faire le test pour etre sur de moi.

Sans le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Unprotect

j'ai une erreur

Avec le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Unprotect

je n'ai plus d'erreur


++
Minick

[Karatégirl77]

Petite question : où dois-je écrire ces lignes de code?
Actuellement, ces lignes sont dans un module, et j'appelle cette procédure à l'ouverture de mon classeur. Lorsque la feuille active à l'ouverture du classeur est la feuille "paramétrage" (1ere feuille traitée par mon code), le code marche bien pour cette feuille. Le plantage se fait sur le locked de la 2eme feuille.
Lorsque c'est la 2eme feuille qui est la feuille active à l'ouverture, le plantage se fait dès le code pour la 1ere feuille.

[Minick]

Comme dit plus haut c'est la protection au niveau Feuille donc a faire avant chaque changement dans les feuille.

En reprenant ton code, je ferai comme cela:

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
Sub ProtectionFeuilles()
 
ActiveWorkbook.Protect structure:=True  'Protection de la structure du classeur
 
'- cas de l'onglet paramétrage
With Worksheets("parametrage")
    .Unprotect
    .Cells.Locked = False
    .Range(Cells(1, 1), Cells(1, 4)).Locked = True 'protection tableau 1
    .Range(Cells(4, 1), Cells(4, 3)).Locked = True 'protection tableau 2
    .Range(Cells(5, 1), Cells(6, 1)).Locked = True 'protection tableau 2
    .Range(Cells(9, 1), Cells(9, 8)).Locked = True 'protection tableau 3
    .Range(Cells(10, 1), Cells(11, 2)).Locked = True 'protection tableau 3
    .Range(Cells(12, 1), Cells(15, 1)).Locked = True 'protection tableau 3
    .Protect 
End With
 
'- cas de l'onglet seuils
With Worksheets("Seuils de notation")
    .Unprotect
    .Cells.Locked = False
    .Range(Cells(2, 1), Cells(3, 50)).Locked = True 'protection des lignes 1 à 3
    .Range(Cells(1, 1), Cells(1, 65535)).Locked = True 'protection colonne 1
    .Protect 
End With
 
 End Sub

++
Minick