Protection avec mise en forme & MDP

  • Initiateur de la discussion Initiateur de la discussion Fred76
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Fred76

XLDnaute Nouveau
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
 
Protection.jpg

C'est toi qui autorise les modifications. Il faut décocher les cases 'Format'.
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
1 K
Réponses
2
Affichages
546
Retour