Microsoft 365 sur feuille protégée : déplacer une image sans pouvoir la modifier, ni la supprimer

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

Je "coince" à nouveau sur un codage que je n'arrive pas à faire.
Le contexte :
J'ai besoin d'afficher et de pouvoir déplacer "à volonté" une image dans une feuille protégée.

Pour l'exemple (fichier joint), en cliquant dans la cellule A7, si je saisi le chiffre 1, mon image s'affiche.
Mais mon image n'est pas protégée et je souhaite, tout en gardant ma feuille protégée :
- qu'elle soit protégée (non modifiable et pas possible de la supprimer),
- que je puisse la déplacer selon mon besoin de visibilité sur ma feuille,

Mes recherche et tentatives n'ont pas abouti,
Auriez-vous la solution ?
Avec mes remerciements,
Amicalement,
lionel,

 

[pierrejean]

Bonjour
Peut-etre

Private Sub Workbook_Open()
Sheets("Feuil1").Shapes("Image2").Locked = True
End Sub

 

[Usine à gaz]

Bonjour pierrejean,
Merci pour m'avoir répondu
Mais ça ne fonctionne pas car je ne peux pas déplacer mon image
lionel,

 

[Usine à gaz]

Re-bonjour à toutes et à tous,
la solution serait peut-être "d'interdire clic droit sur les "chape" ?
Mais est-ce possible ?

 

[job75]

Bonjour Lionel, Pierre,

Utiliser les touches de direction, le code du ThisWorkbook :

Private Sub WorkBook_Open()
Feuil1.Shapes("Image2").Locked = True
Application.OnKey "{LEFT}", "Gauche"
Application.OnKey "{RIGHT}", "Droite"
Application.OnKey "{UP}", "Haut"
Application.OnKey "{DOWN}", "Bas"
End Sub

Le macros dans Module1 :

Sub Gauche()
With Feuil1
    .Protect "", UserInterfaceOnly:=True
    .Shapes("Image2").Left = .Shapes("Image2").Left - 20
End With
End Sub

Sub Droite()
With Feuil1
    .Protect "", UserInterfaceOnly:=True
    .Shapes("Image2").Left = .Shapes("Image2").Left + 20
End With
End Sub

Sub Haut()
With Feuil1
    .Protect "", UserInterfaceOnly:=True
    .Shapes("Image2").Top = .Shapes("Image2").Top - 20
End With
End Sub

Sub Bas()
With Feuil1
    .Protect "", UserInterfaceOnly:=True
    .Shapes("Image2").Top = .Shapes("Image2").Top + 20
End With
End Sub

A+

 

[Usine à gaz]

Bonjour Gérard,
Content de te "voir"
Merci pour ton fichier et ton code qui fonctionne "comme d'hab" !
Mais ce n'est pas "pratique" car j'ai "souvent" à déplacer l'image selon la ou les cellules que j'ai besoin de voir "derrière" l'image.
Il faudrait que je puisse la déplacer juste au clic dessus et déplacement.
mais peut-être n'est-ce pas possible ?
En tout cas, je garde ton code et je vais voir si je peux le combiner pour un déplacement plus facile.
Merci gérard,
lionel

 

[Usine à gaz]

Re_Gérard,
Désolé, j'avais pas bien compris ... ça fonctionne super bien ... j'aurais du m'en douter LOL

 

[Usine à gaz]

Génial

 

[Usine à gaz]

lol, je ne m'en lasse pas voilà qui va nous simplifier notre travail ... GENIAL !
Encore Merci Gérard