Protection de plusieurs feuilles

[Alain]

Bonjour à tous,

Comment faire pour protéger l'ensemble des feuilles d'un classeur.

J'ai essayé, avec "Protéger le classeur" mais j'arrive tout de même à modifier les feuilles, et lorsque je sélectionne toute les feuilles je ne peux que protéger le classeur ( dans le menu déroulant la fonction "protéger la feuille" est grisé.

D'avance merci de votre aide.

Alain

 

[wilfried_42]

Re : Protection de plusieurs feuilles

bonjour alain

dans workbook_open
for i = 1 to sheets.count : sheets(i).protect password:="Proteg": next i

dans workbook_before_close
for i = 1 to sheets.count : sheets(i).unprotect password:="Proteg": next i

 

[ccpapy]

Re : Protection de plusieurs feuilles

bonjour à tous,
wilfried_42,
je ne connaissais pas ta méthode alors j'ai voulu essayer🙁 j'obtiens une erreur sur chacun des codes
alain,
sinon je protege de cette maniere, vois si cela te convient

 

[wilfried_42]

Re : Protection de plusieurs feuilles

re: bonjour ccpapy

je viens de refaire le test, cela fonctionne chez moi, j'ai une version 2002

 

[Pierrot93]

Re : Protection de plusieurs feuilles

Bonjour Alain, Wilfried, Ccpapy

chez moi aussi la méthode de Wiilfried fonctionne (Excel2003),

Ccpapy, petite remarque sur ton code, pourquoi ne pas mettre l'inputbox avant la boucle et te servir de la variable, car si on ne répond pas ou si l'on se trompe les feuilles sont déjà déprotégées.

bon après midi
@+

 

[Eric 45]

Re : Protection de plusieurs feuilles

Bonjour à tous

Si je peux me permettre, la solution de wilfried est bonne, mais je ferais différemment.

dans workbook_before_close
for i = 1 to sheets.count : sheets(i).protect password:="Proteg": next i

ce qui, à l'ouverture, bloque automatiquement les feuilles, car sans activer les macros, tout le monde peut modifier les feuilles sans problème.

Une autre solution, sans macro, protéger feuille par feuille, avec la manip : outil/protection/protéger la feuille

Eric

 

[ccpapy]

Re : Protection de plusieurs feuilles

oups😱
je n'avais jamais fait attention à ça 🙂 c'est vrai qu'après erreur mdp les feuilles se deprotegent
bon il faut corriger maintenant... et sur les nombreux fichiers que j'ai déjà protégés de cette manière (oulàlà la galère, quelle punition!!!)

 

[ccpapy]

Re : Protection de plusieurs feuilles

re,
j'ai révisé ma copie

Private Sub CommandButton2_Click()
Dim PassWord As String
PassWord = InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles")
If PassWord = "123" Then ActiveSheet.Unprotect "123" Else: MsgBox "Erreur Mot de Passe !", , "Attention"
Exit Sub
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect PassWord:="123"
Next Feuil
End Sub

j'ai ton accord Pierrot ? lol

 

[wilfried_42]

Re : Protection de plusieurs feuilles

re:

PassWord = InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles")
If PassWord = "123" Then ActiveSheet.Unprotect "123" Else: MsgBox "Erreur Mot de Passe !", , "Attention"
Exit Sub

if InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles") <> "123" then msgbox "Erreur de mot de passe" : exit sub

 

[ccpapy]

Re : Protection de plusieurs feuilles

je viens de m'apercevoir que ça n'allait pas, c'est l'heure de la sieste ou quoi ? grrrrr

merci Wilfried (pour m'avoir fait remarqué cette erreur et surtout pour la solution)

 

[Pierrot93]

Re : Protection de plusieurs feuilles

Re à tous

personellement, j'utiliserait la variable saisie dans l'inputbox comme ceci :

Private Sub CommandButton2_Click()
Dim MonPassWord As String
MonPassWord = InputBox(" Entrez le mot de passe ", " Déverrouillage de l'ensemble des Feuilles")
If MonPassWord <> "123" Then  MsgBox "Erreur Mot de Passe !", , "Attention":Exit Sub
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect PassWord:= MonPassWord
Next Feuil
End Sub

en évitant d'utiliser le nom de l'argument "PassWord" de la méthode "Protect" comme variable...

bon après midi
@+

 

[Alain]

Re : Protection de plusieurs feuilles

Rebonjour,Wilfried, Ccpapy,Pierrot,Eric


Merci à tous, vous étes formidable, ça marche.

J'ai associé le tableau de ccpapy avec la derniére formule de Pierrot, c'est impec

Encore merci et à bientôt.

Bon week-end

Alain