Bloquer suppression image mais autoriser le mode dessin

[raf26]

Bonjour,

J'ai un fichier dans lequel se trouve 5 images (je les ai toutes nommé)

Ce fichier est utilisé également avec le mode Dessin (sur tablette Microsoft Surface) pour signer à la main le document et indiquer des chocs sur carrosserie.

J'ai une macro qui efface les données saisies de ce fichier + les dessins manuels, sauf les images (identifiées dans ma macro).

Mais il est possible de supprimer , déplacer les images puisque lorsque je protège la feuille, je suis obligé de laisser cocher "Modifier les objets" sinon je n'ai plus accès au mode Dessin.

Je souhaite donc pouvoir verrouiller les images (pas de suppression, ni déplacement, ni sélection) mais pouvoir utiliser le mode Dessin en même temps.

Auriez vous une solution à me proposer ?

Merci d'avance

Bonne journée

Cordialement

 

[sylvanu]

Bonjour Raf,
Est ce que les solutions bourrin sont acceptées ?
Chaque image est liée à une macro très compliquée :

Sub RetourA1()
    [A1].Select
End Sub

Je ne sais pas si ça résout tout, mais ça offre au moins un minimum de sécurité.

 

[Staple1600]

Bonsoir le fil, raf26

raf26
Une suggestion
Masquer les images
(exemple avec une image)

Sub MasqueAffiche()
Me.Shapes("Picture 1").Visible = Not Me.Shapes("Picture 1").Visible
End Sub

NB: J'ai mis le code dans le code de la feuille lors de mon test
La 1ère exécution masque l'image, la 2nde la ré-affiche

EDITION: Bonsoir sylvanu

 

[sylvanu]

Je suppose que les images sont fixes comme dans un rapport.
Dans ce cas pourquoi ne pas passé par un arrière plan. Les images sont inaccessibles et on peut même écrire dessus dans les cellules.
C'est un peu chiant à faire mais ce n'est qu'une seule fois.
Reste à savoir si on peut bloqué l'arrière plan. Mais dans ce cas l'utilisateur l'aura vraiment fait exprès.

 

[Staple1600]

Bonsoir à toi aussi sylvanu...

(cf message#3)

 

[sylvanu]

Bonsoir le fil,
Le problème du fond écran est de poser problème à l'impression.
Voici le xls, le pdf associé et la macro qui va bien :

Sub ImpFiligrane()
' Imprime AVEC le fond d'ecran
' La Zone d'impression DOIT être préalablement définie
Dim ZoneImpr As Range
Set ZoneImpr = Range(ActiveSheet.PageSetup.PrintArea)
ZoneImpr.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ZoneImpr
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
End Sub

Truc que j'ai glané je ne sais où, donc impossible de rendre à César ...

 

[Staple1600]

Re,

sylvanu
C'est volontaire de ne pas me saluer ou de m'ignorer?
(cf message#3 et #4)
Histoire que je sache à quoi m'en tenir si on se croise dans d'autres fils.

 

[sylvanu]

Mon ami, j'ai dit bonjour le fil, c'est à dire pour moi bonjour à tous ceux qui sont dans la discussion.
Je ferais attention la prochaine fois, je ne voulais en aucun cas vous froisser.
Bonne soirée.

 

[raf26]

Bonsoir,

Merci pour vos différentes aides.

J'ai pris la solution de Sylvanu, qui me va bien, simple pour un débutant pour moi qui ne comprend grand chosesà tous ces codes....

Merci à vous tous

 

[sylvanu]

Bonsoir Raf , Bonsoir Staple,
Laquelle ? J'en ai proposé 2. La plus simple à l'inconvénient de pouvoir toucher aux images par clic droit, il faudrait le vérouiller.
La 2ème est qu'il va falloir de l'huile de coude pour faire pile poil la bonne image, aux bonnes dimensions. Mais ce ne sera à faire qu'un fois.

 

[raf26]

Sylvanu,

J'ai pris cette option

Sub RetourA1()
[A1].Select
End Sub

Merci

 

[sylvanu]

J'en suis fier !!!!!

Toutes vos spécifications remplies ( presque ) avec UNE SEULE LIGNE DE CODE !!!
Bonne soirée.

(PS : vous avez remarqué qu'un clic droit sélectionne l'image ? )

 

[raf26]

Oui j'ai remarqué, mais cela me convient.

Encore merci pour vos précieuses aides !!