Discussion :

[retraite83]

Bonjour,

J'ai ajouté 3 lignes dans mon code (à savoir la ligne Unprotect, la ligne Protect et la définition Dim) pour éviter les mauvaises manipulations:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim DrawingObject As Variant
Worksheets("Imprimable").Unprotect Password:="mot passe"
Worksheets("Imprimable").Rows(i).AutoFit
Worksheets("Imprimable").Rows(i).RowHeight = 12 + Worksheets("Imprimable").Rows(i).RowHeight
Worksheets("Imprimable").Rows(i + 1).AutoFit
Worksheets("Imprimable").Rows(i + 1).RowHeight = 12 + Worksheets("Imprimable").Rows(i + 1).RowHeight
Worksheets("Imprimable").Protect Password:="mot passe", DrawingObject:=True

ce code marchait très bien sans ces lignes et avec j'ai :

Erreur 1004 erreur définie par l'application ou par l'objet

sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Imprimable").Protect Password:="mot passe", DrawingObject:=True

j'ai essayé dans tous les sens sans trouver de solution, je pense que cela vient du DrawingObject.

La feuille est initialement protégée manuellement avec les options "Sélectionner les cellules déverrouillées" et "Modifier les objets" (j'ai des images dans la feuille)

Le besoin est de protéger certaines colonnes et en laissant la possibilité d'insérer des images par "insertion images" Excel et de les déplacer dans les colonnes non protégées

si vous avez une piste ?

[anasecu]

Bonsoir,

Pourquoi vouloir définir DrawingObject qui est un paramètre de Protect ?

[retraite83]

bonsoir,

sans ce paramètre je ne peux pas insérer d'image, la fonction dans excel est grisée et plus disponible.

[anasecu]

Bonsoir,

Bien sûr mais c'est ton Dim qui n'a pas lieu d'être puisque c'est un paramètre excel : c'est comme si tu définissais "Range" ou autre objet et comme c'est ta définition qui est prise en compte elle ne peut pas fonctionner puisque non adaptée.

[retraite83]

ah oui, merci, je ne savais pas cela.

je peux maintenant insérer des images en protégeant avec la syntaxe suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Imprimable").Protect Password:="mot passe",  DrawingObjects:=False, Contents:=True, Scenarios:=True

Mon erreur venait aussi de DrawingObjects qu'il faut mettre a "False" puisque par défaut "True" protège et empêche l'insertion d'images (vu dans la doc)

merci