Microsoft 365 Déprotéger le texte (pas l'objet) de la "ZoneTexteMessage" en gardant la feuille protégée

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai une "ZoneTexteMessage"
Je n'arrive pas à déprotéger le texte (pas l'objet) de la "ZoneTexteMessage" en gardant la feuille protégée

j'ai cherché un peu partout mais je n'ai pas trouvé
Depuis ce matin j'ai fait un tas d'essais sans succès

Auriez-vous le bon code ?
En cas, je joins le fichier test.

je vous remercie et vous souhaite une belle fin de dimanche,
Amicalement,
Lionel,

 

[fanch55]

Bonsoir Lionel,
Elle est où cette zone ?

 

[Usine à gaz]

Bonjour fanch55,
Merci d'être là
Oupssss ! je m'étais trompé de fichier.
Je viens de remettre le bon en #post1,
lionel,

 

[job75]

Bonsoir Lionel, fanch55,

Je pense qu'il n'y a pas de solution avec une Zone de texte.

Par contre avec une TextBox (contrôle ActiveX) c'est facile :

Sub protection()
Feuil1.OLEObjects("TextBox1").Object.Locked = True
End Sub

Sub déprotege()
Feuil1.OLEObjects("TextBox1").Object.Locked = False
End Sub

A+

 

[fanch55]

Lionel, le code ci-joint devrait le faire

Sub protection()
    ActiveSheet.Unprotect
    [ZoneTexteMessage].Locked = True
    [ZoneTexteMessage].LockedText = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub déprotege()
    ActiveSheet.Unprotect
    [ZoneTexteMessage].Locked = True
    [ZoneTexteMessage].LockedText = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[fanch55]

Bonsoir Lionel, fanch55,

Bonsoir @job75

 

[Usine à gaz]

Bonsoir Gérard, fanch55,

Merci à vous 2 d'être là encore pour moi
@Gérard : avec la TextBox effectivement, c'est une possibilité, Merci
@fanch55 : Ton code semble bien fonctionner avec la zone de texte, Merci
Merci, voilà 2 options, génial
lionel,

 

[job75]

Merci fanch55, je ne connaissais pas la propriété LockedText.

Lorsque le curseur est dans la Zone de texte le clic sur le bouton protection n'a pas d'effet.

Il faut lancer la macro autrement, ce n'est pas bien grave.

Bonne nuit.

 

[Usine à gaz]

Merci Gérard, Merci fanch55,
Bonne nuit à vous deux
Bonne nuit le Forum
lionel,

 

[fanch55]

Bonjour @job75, Lionel,

Il y a d'autres "dommages" collatéraux :
il semblerait que les touches de navigation et le return/entrée du clavier soient également de temps en temps non opérationnels dans la zone texte ( pas de problème avec la souris ) .
J'ai modifié le code pour que ce phénomène ( sur mon poste ? ) soit moins fréquent

Sub protection()
    With ActiveSheet
        .Unprotect
        With [ZoneTexteMessage]
            .Locked = True             ' par sécurité
            .LockedText = True
            .Interior.Color = 6737151  ' orange
        End With
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        .EnableSelection = xlNoSelection
    End With
End Sub
Sub déprotege()
    With ActiveSheet
        .Unprotect
        With [ZoneTexteMessage]
            .Locked = True            ' par sécurité
            .LockedText = False
            .Interior.Color = 9359785 ' vert clair
        End With
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        .EnableSelection = xlNoRestrictions
    End With
    With [ZoneTexteMessage].ShapeRange.TextFrame2.TextRange
        .Characters(.Characters.Count, 0).Select
    End With
End Sub

Mais cela ne solutionne pas ce qu'a fait remarquer @job75 :

Lorsque le curseur est dans la Zone de texte le clic sur le bouton protection n'a pas d'effet.

 

[Usine à gaz]

Bonjour Gérard, Bonjour fanch55, le Forum,
Je vous souhaite une belle journée

"Lorsque le curseur est dans la Zone de texte le clic sur le bouton protection n'a pas d'effet."
De mon côté, ce n'est pas un souvi car j'ai déprotégée A1 que je sélectionne pour sortir de la Zone de texte.

Merci fanch55 pour ce nouveau code,
lionel