Protection avec mise en forme & MDP

[Fred76]

Bonjour,

Bonne année, pour commencer.

J'ai une macro qui me permet de protéger (ou déprotéger) toutes les feuilles d'un classeur en un clic. Mais celle-ci n'offre pas la possibilité de faire des mises en forme.

Lorsque j'enregistre une macro : protection avec mise en ofrme autorisée et MDP, j'ai un soucis
Le MDP n'est pas enregistré dans la macro.

J'aimerai pouvoir fusionner les deux codes, c'est à dire protéger avec MD en autorisant la mise en forme ( couleur, police, par exemple).

Je n'y arrive pas, je ne sais pas où je bug.
Merci pour votre aide.

Sub Protéger_toutes_Feuilles()

' Protéger_toutes_Feuilles Macro

For Each Feuille In Sheets
Feuille.Protect Password:="MDP"
Next Feuille

End Sub


Sub Macro1()

' Macro1 Macro : protection avec mise en forme autorisée

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

 

[cp4]

Bonjour,

Il faut déprotéger avant de mettre en forme.

 

[Fred76]

@cp4 : joint un fichier qui montre qu'un onglet voir tous les onglets peuvent être protégés, mais autorise la mise en forme des cellules protégées.

 

[cp4]

C'est toi qui autorise les modifications. Il faut décocher les cases 'Format'.

 

[Fred76]

Au contraire, c'est cela que je veux : une protection des cellules contre l'écriture, mais autorisant les mises en formes aux utilisateurs .

ex : Lundi est renseigné, l'utilisateur met lundi avec une couleur, pour repère sur son calendrier.

Je voudrais pouvoir avoir la macro "Protéger toutes les feuilles" avec cette option.
Si cela est possible.

 

[cp4]

un essai

Sub ProtegerTout()
    Dim MDP As String
        For i = 1 To Sheets.Count
        With Sheets(i)
            .Protect Password:="MDP", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                   , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                     AllowFormattingRows:=True
        End With
    Next i
End Sub

 

[Fred76]

@cp4

Ca à l'air de fonctionner.
En te remerciant pour ton aide.

Cordialement
Fred