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
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