VBA, Problème d'écriture dans un shape

[Goufra]

Dans l'onglet "descriptif1", ( protégé)

Je déprotège
Je créée un rectangle
J'utilise le code
Sheets(1).Shapes("Monshape").Select
Selection.Locked = msoFalse

Je reprotège la feuille​

1/ Le rectangle peut bouger
2/mais impossible d'écrire dans le rectangle.

3/ je peux vérifier par clique droit dans propriétés format de la forme/propriété
Les cases suivantes sont bien décochées:
vérouillé et texte vérouillé

Toutefois ,En ôtant la protection dans propriétés
je constate que la case texte vérouillé est cochée !

4/Je décoche / protège je peux écrire

Pièce jointe
Avec mes remerciements anticipés
Bien cordialement
Soirée
Pouvez-vous m'indiquer un code pour ne plus subir cet inconvénient.

 

[kjin]

Re : VBA, Problème d'écriture dans un shape

Bonsoir,

Sub test()
Dim osh As Object
Set osh = Sheets(1).Shapes.AddShape(msoShapeRectangle, 150, 100, 200, 30)
With osh
    .Name = "MonShape"
    With .TextFrame.Characters
        .Text = "abcd"
        .Font.Name = "calibri"
        .Font.Size = 16
        .Font.Bold = True
        .Font.Color = vbRed
    End With
    .Fill.ForeColor.RGB = vbWhite
    .OLEFormat.Object.LockedText = False
    .Locked = True
End With
For Each sh In Sheets
    sh.Protect
Next
End Sub

A+
kjin

 

[Goufra]

Re : VBA, Problème d'écriture dans un shape

Bonsoir Kjin,
Merci pour ta rapidité,
@+

 

[Goufra]

Re : VBA, Problème d'écriture dans un shape

Bonjour Kjin,

Ton code fonctionne !!!!
Avec toutes mes excuses si tu as lu le message précédent non modifié.

Un grand merci pour ton code, très abouti très élégant.
J'ai encore des marches de progrès.

Bonne journée
Goufra