Discussion :

[dlight]

Bonjour à nouveau.

Je cherche à annuler la protection de toutes les feuilles d'un fichier en utilisant vba. J'ai trouvé mon code à partir d'un livre sur vba.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub protection()
 
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Worksheets
 
ActiveSheet.Unprotect ("onq123")
 
Next Feuille
 
End Sub

Selon les explications dans le livre, l'opération s'effectue sur toutes les feuilles mais pour moi, il n'y a que ma première feuille qui n'est plus protégé.

Manque-t-il quelque chose afin de réaliser cette opération ?

Merci à l'avance

[MarcelG]

Bonsoir,

Ici tu ne changes oas de feuille active, même en balayant toutes les feuilles de ton classeur.

Essaie plutôt

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub protection()
 
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Worksheets
 
Feuille.Unprotect ("onq123")
 
Next Feuille
 
End Sub

Cordialement.

Marcel

[dlight]

Merci à vous MarcelG.

C'est parfait !