modification police avec macro protection

[mix770]

Bonjour le forum,
j'ai un tableau excel avec beaucoup d'onglets, j'ai fais le choix de protéger l'ensemble avec une macro, cela marche très bien, mais je souhaiterai que les utilisateurs puissent changer la couleur de police en rouge quand il y a besoin.
pour faire simple laisser libre la couleur de police. quand on protège par le chemin normal on peut cocher cette option mais par macro je ne vois pas.
si quelqu'un a une idée, ci dessous la macro

Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:="Tidf94"
Next i
End Sub

merci à vous

 

[Pierrot93]

Re : modification police avec macro protection

Bonjour,

pour permettre la ise en forme des cellules :

Sheets("Feuil1").Protect "toto", AllowFormattingCells:=True

bonne journée
@+

 

[mix770]

Re : modification police avec macro protection

Bonjour Pierrot93
ça c'est de la réactivité...
pour bien comprendre, ton code je l'intègre comment dans ma macro, sachant qu'il y a une vingtaine de feuilles concernées.
merci à toi
******
j'avais oublié..
BONNE ANNÉE LE FORUM

 

[Pierrot93]

Re : modification police avec macro protection

re,

peut être ainsi dans ta boucle :

For i = 1 To nombre
Worksheets(i).Protect Password:="Tidf94", AllowFormattingCells:=True
Next i

 

[mix770]

Re : modification police avec macro protection

re,
un grand merci, ça marche impeccable dans la boucle
et chapeau pour la maitrise
cordialement
@+