Microsoft 365 Déplacer et redimensionner une image dans une feuille protégée

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #2

Bonsoir Dvd,
Quand on protège une feuille on plusieurs options possibles, en particulier "Modifier les objets"
Si cette option est cochée, on peut déplacer et redimensionner les photos.
Dans le code cela fait :

VB:

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, Password:="7601"

Dvd1976 à dit:

j'ai une erreur qui apparait...

Cliquez pour agrandir...

Où ? sur quelle ligne ? quel code d'erreur ?

 

Vote positif 0 Vote négatif

D

Dvd1976

XLDnaute Nouveau

• 24 Juin 2022

• #3

Bonsoir Sylvanu,

merci pour ta réponse

j'ai donc remplacé "ws.Protect Password" par ta fonction et j'ai bien coché "modifier les objets"
Résultat : cela fonctionne parfaitement... mais du coup tous les autres objets de la page sont également déplaçables... ce qui n'est pas idéal malheureusement
N'y a-t-il pas moyen d'agir localement sur la zone "Photo(s)" ?

Pour le message d'erreur, il arrive quand la fenêtre "insérer une image" (ouvert avec la macro) et quand je clique sur "Annuler" ou quand je clique sur la croix pour fermer la fenêtre

voici un screenshot :

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #4

Désolé, ça je ne sais pas faire.
mais d'autres esprits plus malin auront peut être une solution.

 

Vote positif 0 Vote négatif

D

Dvd1976

XLDnaute Nouveau

• 26 Juin 2022

• #5

quelqu'un d'autre aurait une idée ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Juin 2022

• #6

Bonjour,
Toujours pas d'idée pour le premier point.
Par contre pour le second l'erreur est "normale".
Si vous faites Annuler lors du choix du fichier alors on sort avec très surement avec sPathFic=""
Donc dans le Set Img il y a erreur;
Après le sPathFic=....
Insérez pour voir :

VB:

If sPathFic="" then Exit Sub

 

Vote positif 0 Vote négatif

D

Dvd1976

XLDnaute Nouveau

• 26 Juin 2022

• #7

Merci Sylvanu, cela fonctionne... plus d'erreur

Pour le déplacement et le redimensionnenemt, j'ai trouvé une solution temporaire qui ne me satisafait pas complètement mais en attente de trouver mieux, j'ai fais ceci :

vu que la rédaction du document se fait d'abord dans la partie gauche, de ce fait l'utilisateur termine par l'insertion des photos.
Donc j'ai laissé le "ws.Unprotect" dans la macro d'insertion d'images et j'ai déplacé le "ws.Protect" dans la macro d'envoi du mail.

La feuille reste ainsi un minimum de temps dévérouillée.

Je retourne dans mes recherches pour améliorer cela....

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 26 Juin 2022

• #8

Bonjour Dvd1976,

Dvd1976 à dit:

Merci Sylvanu, cela fonctionne... plus d'erreur

Cliquez pour agrandir...

dans ce cas, tu peux marquer le post #6 de sylvanu comme solution.

fais comme sur cette image :



soan

 

Vote positif 0 Vote négatif

D

Dvd1976

XLDnaute Nouveau

• 26 Juin 2022

• #9

Bonjour Soan,

effectivement mais c'est un problème secondaire que j'avis posté dans ce post.
Le problème évoqué dans le titre n'est pas encore totalement résolu

PS: j'ai un autre problème, lorsque je ferme la fenêtre "insérer une image" ou que je fais "annuler", j'ai une erreur qui apparait...

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 26 Juin 2022

• #10

Dvd1976 à dit:

Le problème évoqué dans le titre n'est pas encore totalement résolu

PS: j'ai un autre problème, lorsque je ferme la fenêtre "insérer une image" ou que je fais "annuler", j'ai une erreur qui apparait...

Cliquez pour agrandir...

ah, ok ! alors bonne chance pour la suite de ce présent sujet !

j'espère que sylvanu ou un autre contributeur pourront bientôt t'aider !

soan

 

Dernière édition: 26 Juin 2022

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Juin 2022

• #11

Re, bonjour Soan,
Peut être une approche possible. Voir PJ.
Mais qui remplit les 3 rectangles bleu ? L'utilisateur ou le VBA ?

En PJ deux pages :
1- Essai, les 4 objets ( les wagons et 3 rectangles bleus ) sont associés à cette macro pas trop compliquée :

VB:

Sub FigerImage()
End Sub

et dans ce cas on ne peut plus que bouger les images de droite.
Mais on ne peut plus remplir les 3 rectangles bleus.
2- Essai2. Idem mais les 3 rectangles ont été supprimés et remplacés par des cellules fusionnées et dévérouillées.
Tout marche mais je ne sais pas si l' "esthétique" vous conviendra.

 

Pièces jointes

• DVD1976 ESSAI.xlsm

  187.8 KB · Affichages: 10

Vote positif 0 Vote négatif

Solution

D

Dvd1976

XLDnaute Nouveau

• 26 Juin 2022

• #12

la solution 1 n'est donc pas envisageable car il faut impérativement identifier les locos/wagons

par contre pour la solution 2 cela pourrait convenir mais je vais voir si je peux réorganiser la mise en page de cette partie.

Je te tiendrai au courant sylvanu

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Juin 2022

• #13

On a le droit de tricher ?

Si oui, alors une astuce en PJ Essai3.
Dissocier les wagons en 4 morceaux, l'intérieur reste donc "libre". Chaque morceau étant relié à la macro ils ne sont pas modifiables.

 

Pièces jointes

• DVD1976 ESSAI2.xlsm

  205 KB · Affichages: 15

Vote positif 0 Vote négatif