Autoriser uniquement le style de police sur document protégé

Bonsoir

Meilleurs voeux également :-)

Le choix de la police est justement dans le "format cellule" et aucune autre option liée à la mise en forme n'est prévue dans la protection. Donc...
En donnant l'accès au format, une petite consigne ne ferait pas l'affaire ?

Bonjour argixu,

Merci pour la réponse, je pense que la petite consigne sera de rigueur!

Je pensais qu'une formule type macro pouvait exister, mais sans conviction.

Bonne journée

FredM

Bonjour,

On peut le faire par macro. Pour accéder a l'éditeur faire Alt F11. Ensuite cliquez sur Feuil1 en haut à gauche et mettre ce code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Font.Name = "Calibri" Then 'mettre la police par défaut de la feuille Excel
Else
MsgBox "Vous ne pouvez pas changer la police!"
Selection.Font.Name = "Calibri"
End If
If Selection.Font.Size = "11" Then 'mettre la taille de la police par défaut de la feuille Excel
Else
MsgBox "Vous ne pouvez pas changer la taille de la police!"
Selection.Font.Size = "11"
End If
'etc...
'etc...
'etc...
End Sub

Inconvénient si vous avez différentes polices, messages intempestifs.

A essayer!

Re,

Merci Le Pivert de ton aide,

Je viens de tester la macro et cela ne semble pas fonctionner comme j'aimerai :

1) celle-ci fonctionne sur tout le document et comme celui-ci comporte différentes zones avec différentes tailles de police... il y a donc des messages sur les zones dont la police et/ou taille est différente.

2) Cela ne semble pas résoudre mon problème car je veux que les utilisateurs puissent uniquement avoir la possibilité de mettre en gras ou pas les données qu'ils pourront taper. La fonction est non accessible après protection.

Tous mes commentaires ne sont valable que si je suis pas un boulet et que j'ai oublié de faire un truc bien entendu.

Donc pour résumer, j'ai un classeur avec une police "Times New Roman" avec des zones dont la taille est différentes pour pouvoir des données visibles, que je veux protéger avec des zones verrouillées et d'autres non, touten laissant la possibilité aux utilisateurs de pouvoir mettre les données en gras ou pas.

Désolé d'être aussi complexe.

FredM

Après avoir lu cela:

2) Cela ne semble pas résoudre mon problème car je veux que les utilisateurs puissent uniquement avoir la possibilité de mettre en gras ou pas les données qu'ils pourront taper. La fonction est non accessible après protection.


Je ne comprends pas ce que tu veux?

Je croyais que ce n'était que de modifier le style de la police (gras, normal, italique.)

Pour ce qui est de saisir des données cela n'est pas possible.

Il me faut quelques éclaircissements

Pour une plage de cellule pour l'exemple:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A:E")) Is Nothing Then 'à adapter
'rien
Else
If Selection.Font.Name = "Times New Roman" Then 'a adapter
Else
MsgBox "Vous ne pouvez pas changer la police!"
Selection.Font.Name = "Times New Roman"
End If
If Selection.Font.Size = "11" Then 'a adapter
Else
MsgBox "Vous ne pouvez pas changer la taille de la police!"
Selection.Font.Size = "11"
End If
'etc...
'etc...
'etc...
End If
End Sub

Mais si il y a différentes plages et différentes police, cela devient vite compliqué

Comme tu l'écris, cela est compliqué, car il y a différentes plages.
Elles ont toutes la même police "Times New Roman" mais pas la même taille.

Je veux juste autoriser les utilisateurs à écrire uniquement soit en mode normal, soit en gras dans les zones non verrouillées. (Intitulé du plat, Descriptif du plat, denrées, Techniques).

Voici le classeur en image :



Merci
FredM

Voici un exemple à adapter. Il suffit de changer les plages:

http://www.cjoint.com/data3/3Aeg5Pz8dOa.htm

Bonjour Le Pivert,

Vraiment merci pour cette macro vraiment efficace.
C'est exactement ce qu'il me fallait.

Bon WE

FredM