Protection avec mise en forme & MDP

Fred76 · 8 Janvier 2018

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 · 8 Janvier 2018

Bonjour,

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

Fred76 · 8 Janvier 2018

@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 · 8 Janvier 2018

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

Fred76 · 8 Janvier 2018

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 · 8 Janvier 2018

un essai

VB:

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 · 8 Janvier 2018

@cp4

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

Cordialement
Fred

Protection avec mise en forme & MDP

Fred76

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

Fred76

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

Fred76

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

Pièces jointes

Fred76

XLDnaute Nouveau

Discussions similaires