Textbox dont le texte n'est pas protégé

Bonjour,

J'ai créé un TextBox avec du texte déroulant et je cherche une façon de protéger le texte.

Présentement je peux sélectionner le texte dans le TextBox et l'effacer et cela même si le classeur est protégé.

Voici le fichier pour mieux comprendre.

Merci.

Bonjour

En mettant une "Private Sub TextBox1_Change()" avec le même texte. C'est un peu sommaire mais ça marche puisque dès qu'on change quoi que ce soit ça remet le texte d'origine.

Bonjour,

Le texte au complet est déjà dans la Feuille (Onglet) Licence (CodeName). C'est sur que j'ai juste à rappeler la routine Private Sub Licence_Initialize pour remettre le texte original; mais je ne veux pas que l'on modifie ou efface le texte d'origine dans le TextBox.

Merci.

Bonjour,

Dans le module "ThisWorkbook", mets :

Private Sub Workbook_Open()
  Sheets("Licence").TextBox1.Object.Locked = True
End Sub

Daniel

Bonjour,

Fonctionne parfaitement.

Merci beaucoup