Protéger plusieurs feuilles dans excel 2010?
Résolu
Pprev
Messages postés
2
Statut
Membre
-
Pprev Messages postés 2 Statut Membre -
Pprev Messages postés 2 Statut Membre -
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 !
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:
- Comment protéger plusieurs feuilles excel en même temps
- Renommer plusieurs fichiers en même temps - Guide
- Excel trier plusieurs colonnes en même temps - Guide
- Proteger cellule excel - Guide
- Liste déroulante excel - Guide
- Comment faire un livret avec des feuilles a4 - Guide
3 réponses
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.
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.
