Sujet Précédent Sujet Suivant

Protéger plusieurs feuilles dans excel 2010?

Résolu/Fermé
Pprev Messages postés 2 Date d'inscription mardi 9 août 2011 Statut Membre Dernière intervention 10 août 2011 - 9 août 2011 à 21:15
Pprev Messages postés 2 Date d'inscription mardi 9 août 2011 Statut Membre Dernière intervention 10 août 2011 - 10 août 2011 à 14:01
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 !
A voir également:

3 réponses

Réponse 1 / 3
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
9 août 2011 à 21:39
Bonjour,

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

eric
0
Réponse 2 / 3
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 9/08/2011 à 22:13
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.
0
Réponse 3 / 3
Pprev Messages postés 2 Date d'inscription mardi 9 août 2011 Statut Membre Dernière intervention 10 août 2011
10 août 2011 à 14:01
Impeccable ! Merci beaucoup!
0