Format libre sur feuille protégée

[Natiffar]

Bonjour à tous!

Je reviens une fois de plus vers vous pour un coup de pouce

D'ailleurs je n'ai toujours pas de réponse sur ma dernière demande qui concernait la création d'un pdf, mais je sais qu'ils sont nombreux comme moi alors je ne désespère pas

Donc, mon nouveau problème se résume ainsi...

Je souhaite pouvoir laisser la possibilité aux utilisateurs de mes bons de commande de mettre du texte en gras, de le souligner,... bref de faire un minimum de mise en page sur une plage de cellules précises, le tout sur une feuille protégée.

Y-a-t-il un code VBA qui permette de faire cela ?

Merci d'avance aux âmes charitables :evil:

 

[CelineG]

Bonjour !

Essaye ça :

Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, Password:='reserves', UserInterfaceOnly:=True

mais sache que ça ne marche pas sur office 2000 (mais sur 2003 !)

et si tu veux avoir plein de truc il faut que tu essai d'enregistrer tes macros :

Outil / macro / nouvelle macro

tu fais ce que tu veux avoir en vba et tu click sur stop

ensuite tu va dans vba et tu regarde comment ça a été traduit

j'ai appris beaucoup de choses comme ça moi !!

bon courage @+

Céline

 

[CelineG]

Bonjour !

Essaye ça :

Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, Password:='reserves', UserInterfaceOnly:=True

mais sache que ça ne marche pas sur office 2000 (mais sur 2003 !)

et si tu veux avoir plein de truc il faut que tu essai d'enregistrer tes macros :

Outil / macro / nouvelle macro

tu fais ce que tu veux avoir en vba et tu click sur stop

ensuite tu va dans vba et tu regarde comment ça a été traduit

j'ai appris beaucoup de choses comme ça moi !!

bon courage @+

Céline

 

[CelineG]

dsl pr le doublon ça répondais pas !

 

[Natiffar]

Merci beaucoup !

Malheureusement, cette méthode permet de modifier le format de toutes les cellules de la page.
Je souhaiterai n'autoriser ces modifications que sur certaines plages de cellules tout en le bloquant sur d'autres.
Dans la mesure du possible, je souhaiterai également limiter ces modifications de format à gras, italique, souligné, centré,....

Cependant, je vais suivre ton conseil et essayer par le biais des macros de trouver une méthode.
Cela dit, les idées restent les bienvenues.

Merci encore

@+

Natiffar

 

[CelineG]

Bonjour !!


en bidouillant je t'ai trouvé ça! ça peut être sympa !!!

Sub protectiosn()

'   protège la plage nommée celine A1:C3 avec mdp 'bla'
    ActiveSheet.Protection.AllowEditRanges.Add Title:='Celine', Range:=Range( _
        'A1:C3'), Password:='bla'
        
'   protège la plage nommée bob A9:C12 avec mdp 'bob'
    ActiveSheet.Protection.AllowEditRanges.Add Title:='Bob', Range:=Range( _
        'A9:C12'), Password:='bob'
        
'   protège la feuille avec le mdp
    ActiveSheet.Protect ('coucou')
        
End Sub

Bonne jorunée