Discussion :

[bbcancer]

Bonjour à tous

J'ai trouvé un code pour protéger plusieurs feuilles d'un classeur excel en même temps et de même pour déprotéger. ci joint le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Protéger toutes les feuilles", "")
For Each i In Worksheets
i.Protect Password:=Motdepasse
Next
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Déprotéger toutes les feuilles", "")
For Each i In Worksheets
i.Unprotect Password:=Motdepasse
Next
End Sub

Par contre j'ai un petit problème, je souhaite avoir la possibilité de choisir lorsque je protège dans la boite de dialogue de protection de trier ou de filtrer (ou autre action possible en fonction de mes besoins). Comment puis-je faire?

Est-il possible de choisir que certaines feuilles à protéger dans un classeur où le nombre de feuille est importante (par exemple : protéger les feuilles 2,6 et 10)?
est-il possible de demander quelle feuille feuille on veut protéger ou déprotéger?

Merci d'avance pour vos réponses

Cordialement

[pgz]

Bonjour.

Juste une idée.
Tu crées un formulaire sur lequel tu affiches toutes les feuilles du classeur (liste multi-choix ou cases à cocher) et toutes les options de protection.
Tu peux ainsi désigner les feuilles à protéger et les options de protections qui seront identiques pour toutes les feuilles choisies.
Si tu veux des options spécifiques à chaque feuille, tu utilises l'interface utilisateur.

Une fois que tu as toutes ces infos, tu peux facilement rédiger la procédure de protection.

COrdialement,

PGZ

[bbcancer]

Bonjour PGZ
D'abord merci pour ta réponse.
En fait je début en vba et donc les formulaires je ne sais pas faire. 2ème problème, les fichiers sont crées par moi mais aussi utiliser par d'autres personnes qui ne s'y connaissent pas trop en informatique. Donc ils savent comment appliquer les macros mais c'est tout. Donc si tu as une solution par code ca m'arrangerait. Je te remercie d'avance.
Bonne journée
Cordialement

[bbcancer]

Bonjour,

En fait j'ai réussi à trouver comment lui dire de choisir les options. Il fallait passer par "Allow".
Par contre il me reste le problème de choisir sur quelles feuilles appliquer ces choix.
S'il y a des solutions je suis preneuse...
Merci