Cellules déverouillées mais...

[VE2LY]

Bonsoir le forum.

Je me retrouve encore une fois devant un problème.
J'ai un fichier ou j'ai déprotegé les cell des lignes 9 et 15
Dans ces lignes il y a des formats conditionels. L'isager entre v1 ou v2 ce qui indique "vacance 1er choix" "vacances 2e choix" Mais il est possible de mettre autre codes dans ces cases.

Quand je protèrge le fichier manuellement, je peut choisir les options de protection. En fait ce que je veut c'est que l'usager puisse changer la couleur des cases et la grosseur de la police des lignes 9 et 15 quand celui ci est protegé. Si je protège par macro, L'usager ne peut plus changer la couleur de case et la police de ces lignes. Quoi ajouter dans la macro pour que ca fonctionne (car le fichier joint est le 1/32 du fichier original )(32 feuilles)

Merci a l'avance
Yves

fichier joint.

 

[CBernardT]

Re : Cellules déverouillées mais...

Bonjour Ve2ly et le forum,

Je te propose de modifier la syntaxe des macros :

Sub Protec()
'
' Protec Macro
' Protection de la feuille
'
' Touche de raccourci du clavier: Ctrl+p
'
For i = 1 To Worksheets.Count '(toutes les feuilles)
With Sheets(i)
.EnableSelection = xlUnlockedCells
.Protect Password:="ass2007"
End With
Next
End Sub

Sub Deprotec()
'
' Deprotec Macro
' Enleve la protection de la feuille
'
' Touche de raccourci du clavier: Ctrl+r
'
For i = 1 To Worksheets.Count '(toutes les feuilles)
With Sheets(i)
.Unprotect Password:="ass2007"
End With
Next
End Sub

Cordialement

Bernard

 

[myDearFriend!]

Re : Cellules déverouillées mais...

Bonsoir VE2LY, CBernardT, le Forum,

Pas sûr d'avoir vraiment compris (en tout cas, je n'ai pas compris la même chose que l'ami CBernardT que je salue au passage), mais si tu veux pouvoir autoriser l'utilisateur à modifier le format des cellules (couleurs, police, etc...) alors que les feuilles sont protégées par macro, il te faut les protéger comme ça :

[SIZE=2][COLOR=NAVY]For[/COLOR] i = 1 [COLOR=NAVY]To[/COLOR] Worksheets.Count [COLOR=GREEN]'(toutes les feuilles)[/COLOR]
    Sheets(i).Protect Password:="ass2007", [B]AllowFormattingCells:=[/B][COLOR=NAVY]True
Next[/COLOR][/SIZE]

Cordialement,

 

[VE2LY]

Re : Cellules déverouillées mais...

Bonsoir Bernard, Mydearfriend

Bernard, mes cell déverouillées ne peuvent toujours pas etre formatées quand le fichier est verrouillé avec le code proposé. Par contre avec la ligne de code de Mydearfriend ça me donne exactement ce que je désire.

Merci a vous deux. Yves

 

[CBernardT]

Re : Cellules déverouillées mais...

Bonjour VE2LY, MDF et le Forum,

Effectivement moi pas avoir bien compris §§§§
Heureusement MDF, le forumeur le plus sympa qui soit, toujours aussi vigilant, a bien perçu qu’il fallait pouvoir modifier le format des cellules.

Cordialement

Bernard