Protéger plusieurs feuilles dans excel 2010?

Résolu
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 !

3 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

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

    eric
    0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  3. Pprev Messages postés 2 Statut Membre
     
    Impeccable ! Merci beaucoup!
    0