Protection de plusieurs feuilles

wilfried_42

XLDnaute Barbatruc

• 13 Avril 2007

• #2

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

 

Dernière édition: 13 Avril 2007

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 13 Avril 2007

• #3

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

 

Pièces jointes

• mdp.xls

  28.5 KB · Affichages: 72
• mdp.xls

  28.5 KB · Affichages: 70
• mdp.xls

  28.5 KB · Affichages: 72

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 13 Avril 2007

• #4

Re : Protection de plusieurs feuilles

re: bonjour ccpapy

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Avril 2007

• #5

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
@+

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 13 Avril 2007

• #6

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

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 13 Avril 2007

• #7

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!!!)

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 13 Avril 2007

• #8

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 13 Avril 2007

• #9

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 13 Avril 2007

• #10

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)

 

Dernière édition: 13 Avril 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Avril 2007

• #11

Re : Protection de plusieurs feuilles

Re à tous

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

Code:

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
@+

 

Dernière édition: 13 Avril 2007

Vote positif 0 Vote négatif

A

Alain

XLDnaute Nouveau

• 13 Avril 2007

• #12

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

 

Vote positif 0 Vote négatif