Protéger plusieurs feuilles dans excel 2010? [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
mardi 9 août 2011
Statut
Membre
Dernière intervention
10 août 2011
-
Messages postés
2
Date d'inscription
mardi 9 août 2011
Statut
Membre
Dernière intervention
10 août 2011
-
Bonjour,

J'aurai besoin de protéger plusieurs feuilles dans un classeur. Étant débutant avec VBA, j'ai essayer ces formules:
Sub ProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Protect Password:="1234"
Next
End Sub


Sub DeProtegeFeuilles()
Dim MaFeuille As Worksheet
For Each MaFeuille In Worksheets
MaFeuille.Unprotect Password:="1234"
Next
End Sub

Cependant, excel me donne une erreur de mot de passe,

Merci de votre aide !

3 réponses

Messages postés
23814
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2021
6 595
Bonjour,

j'ai testé ton code sur excel 2003, pas de pb.

eric
Messages postés
17301
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
20 janvier 2021
4 451
Salut,

pour protéger
Sub ProtegeFeuilleActive()
ActiveSheet.Protect Password:="1234"
End Sub

pour protéger une feuille nommée "Titi" depuis une autre feuille
Sub ProtegeFeuilleNommée()
Sheets("Titi").Protect Password:="1234"
End Sub

pour protéger le classeur
Sub ProtegeLeClasseur()
ActiveWorkbook.Protect Password:="1234"
End Sub

Pour déprotéger
la feuille active

ActiveSheet.Unprotect Password:="1234"
la feuille nommée
Sheets("Titi").Unprotect Password:="1234"
le classeur
ActiveWorkbook.Unprotect Password:="1234"

Protéger toutes les feuilles
Sub ProtectionToutesLesFeuilles()
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect Password:="1234"
Next Feuil
End Sub

déprotéger toutes les feuilles
Sub DeprotectionToutesLesFeuilles()
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect Password:="1234"
Next Feuil
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
Messages postés
2
Date d'inscription
mardi 9 août 2011
Statut
Membre
Dernière intervention
10 août 2011

Impeccable ! Merci beaucoup!