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

fanch55

XLDnaute Barbatruc

• 25 Avril 2021

• #2

Bonsoir Lionel,
Elle est où cette zone ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 25 Avril 2021

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Avril 2021

• #4

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 :

VB:

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

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

A+

 

Pièces jointes

• TextBox(1).xlsm

  23.3 KB · Affichages: 3

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 25 Avril 2021

• #5

Lionel, le code ci-joint devrait le faire

VB:

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

 

Vote positif 0 Vote négatif

Solution

fanch55

XLDnaute Barbatruc

• 25 Avril 2021

• #6

job75 à dit:

Bonsoir Lionel, fanch55,

Cliquez pour agrandir...

Bonsoir @job75

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 25 Avril 2021

• #7

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,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Avril 2021

• #8

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 25 Avril 2021

• #9

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 26 Avril 2021

• #10

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

VB:

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 26 Avril 2021

• #11

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

 

Vote positif 0 Vote négatif