Discussion :

[Domimart]

Bonjour le forum,

Voila, ayant des fichiers avec de nombreux onglets protégés, j'aimerai créer une petite macro pour protéger / déprotéger les feuilles. Le problème c'est que je ne peux pas choisir les options de protection, les feuilles sont complètement protégées, hors j'aimerai laisser aux utilisateurs les options suivantes :
Sélectionner les cellules verouillées
Sélectionner les cellules déverouillées
Format de cellule

Est-ce quelqu'un connait le code pour faire apparaitre la boite standart de protection d'excel ou à défaut autoriser directement ces options dans le code.

Merci à tous

Voici le code de la macro protection:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub All_ReProtect_Dom()
' indiquer le mot de passe dans une inputBox pour reprotéger toutes les feuilles du classeur
    Dim feuil As Worksheet
    Dim ReProtect As Variant
 
   ReProtect = InputBox(" Indiquer le mot de passe de protection", Title:="Reprotéger toutes les feuilles du classeur:")
    For Each feuil In ThisWorkbook.Worksheets
        feuil.Protect (ReProtect)
    Next
 
End Sub

Dom

[Antoniom]

Hello,

Essaie comme ça...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub All_ReProtect_Dom()
' indiquer le mot de passe dans une inputBox pour reprotéger toutes les feuilles du classeur
    Dim feuil As Worksheet
    Dim ReProtect As Variant
 
   ReProtect = InputBox("Indiquer le mot de passe de protection", Title:="Reprotéger toutes les feuilles du classeur:")
    For Each feuil In ThisWorkbook.Worksheets
        feuil.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=ReProtect _
        , AllowFormattingCells:=True
    Next
 
End Sub

Bonne journée !

[Domimart]

Hello Atoniom

Super, ça fonctionne, il s'uffit de connaitre la bonne syntaxe.

Merci à toi et bonne journée également

Dom

[Antoniom]

Re,

Ben si jamais, il y a l'enregistreur de macro qui fait le boulot... après faut paufiner le code.

Très utile !

Cordialement.