macro pour protéger par mot de passe toutes les feuilles d'un classeur

[le yonnais]

- bonsoir , je souhaiterais savoir si , il est possible de mettre en place une macro pour protéger automatiquement toutes les feuilles de n'importe quel classeur excel par mot de passe en même temps , ceci pour éviter de protéger les feuilles une par une .
- j'ajoute que je n'ai aucune connaissance en la matiére . Merci a vous ;

 

[Isab]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Bsr,

peut-être comme ceci
------
Sub Protege()
Dim Ws As Worksheet
Application.ScreenUpdating = False
'protege les feuilles
For Each Ws In Worksheets
‘par exemple ton code dans une feuil en A1
Ws.Protect Password:=Sheets("feuil que tu veux").Range("A1").Value, UserInterFaceOnly:=True
Ws.EnableAutoFilter = True
Ws.EnableOutlining = True
Next Ws
Application.ScreenUpdating = True
End Sub


Faut ensuite cacher ta feuille qui contient ton code ..

 

[le yonnais]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

- bonsoir , je ne sais pas comment enregistrer une macro dans un classeur .peux tu m'indiquer la procédure . Merci .

 

[Isab]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Re

Alt +F11 et ceci ouvre l'éditeur VB

ensuite

dans le menu insertion tu choisi Module..

ensuite une page blanche s'ouvre tu colles la macro dedans

sub ....
contenu macro
end sub

remplace feuille que tu veux dans la macro par le nom de l'onglet /feuil où se trouve ton code
a+

---

Sub Protege()
Dim Ws As Worksheet
Application.ScreenUpdating = False
'protege les feuilles
For Each Ws In Worksheets
‘par exemple ton code dans une feuil en A1
Ws.Protect Password:=Sheets("feuil que tu veux").Range("A1").Value, UserInterFaceOnly:=True
Ws.EnableAutoFilter = True
Ws.EnableOutlining = True
Next Ws
‘cache feuille dans laquelle t’as le code
Sheets("nom de ta feuil").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub

-----------------------

Sub Deprotege()
Dim Ws As Worksheet
'deprotege les feuilles du classeurs
For Each Ws In Worksheets
Ws.Unprotect Password:= Sheets("feuil que tu veux").Range("A1").Value
Next Ws
‘rendre visible ta feuil dans laquelle t’as le code
Sheets("nom de ta feuil").Visible = true
Application.ScreenUpdating = True
End sub

 

[le yonnais]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

ok ,je te remercie , je suis trop nul , malgré tes explications trés claires , je n'y arrive pas aprés 30 minutes ...je referais un essai plus tard .

 

[DoubleZero]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Bonjour, le yonnais, Isab, le Forum,

ok ,je te remercie , je suis trop nul , malgré tes explications trés claires , je n'y arrive pas aprés 30 minutes ...

D'autres explications Ce lien n'existe plus.

Bon courage et à bientôt

 

[le yonnais]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

- bonjour , j'ai appliqué les consignes concernant la macro mais voila un aperçu de l'erreur qui s'affiche :
- erreur de compilation : sub ou fonction non définie

 

[DoubleZero]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Bonjour, le yonnais, Isab, le Forum,

A tester...

Sous la ligne Sub Protège() Remplacer :

Ws As Worksheet

par :

Dim Ws As Worksheet

Bonnes fêtes et à bientôt

 

[le yonnais]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

- bonsoir , en faisant la modif. , j'ai toujours là même erreur ;

 

[DoubleZero]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Re-bonjour,

Une autre façon, à tester (placer les codes dans un module standard) :

Option Explicit
Dim o As Worksheet
Sub Onglets_protéger()
    For Each o In Worksheets
        o.Protect Password:="toto"
    Next o
End Sub
Sub Onglets_protection_supprimer()
    For Each o In Worksheets
        o.Unprotect Password:="toto"
    Next o
End Sub

A bientôt

 

[libellule85]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Bonsoir le yonnais, Isab, 00, le forum,

Je viens d'essayer le code d'Isab il fonctionne impeccable !!


Edit : et si tu mettais Option Explicit au début du code de ton module

 

[Staple1600]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Bonjour à tous

Juste pour varier les plaisirs
(ceux qui veulent utiliser un mot de passe seront amender le code en conséquence)

Sub verrou(etat As String)
Dim ws As Worksheet
For Each ws In Worksheets
Select Case etat
Case Is = "ouvert"
ws.Unprotect
Case Is = "fermé"
ws.Protect
End Select
Next ws
End Sub

Sub protection()
verrou "fermé"
End Sub

Sub deprotection()
verrou "ouvert"
End Sub

 

[le yonnais]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

- bonsoir , malgré toutes vos explications , je n'arrive pas a mettre en place cette macro pour protéger ou déprotéger toutes les feuilles d'un classeur en même temps ; je n'ai aucune connaissance en la matiére ; je fais pourtant attention a exécuter les consignes qui me sont donnés , il y a quelque chose qui m'échappe , les macros sont pour moi , un monde inconnu...
- merci a vous .

 

[libellule85]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Bonjour le yonnais,

trouves en pièce jointe un classeur avec les macros d'Isab (les labels sont sur la feuille 2)



Edit : Ooops mon classeur ne répond pas à ta demande car il ne protège qu'une feuille !!! Mais il faut rechercher sur Internet tu y trouveras certainement ton bonheur !!
Mais le code que t'a donné staple1600 fonctionne très bien et surtout protège toutes les feuilles....

 

[Staple1600]

Re : macro pour protéger par mot de passe toutes les feuilles d'un classeur

Bonsoir à tous


Explication ci-dessous pour "lancer une macro"
Exécuter une macro - Excel - Office.com

Donc pour ce qui concerne ma proposition, lances la macro protection pour protéger toutes les feuilles du classeur.