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

pierrejean

XLDnaute Barbatruc

• 6 Septembre 2020

• #2

Bonjour
Peut-etre

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 6 Septembre 2020

• #3

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 6 Septembre 2020

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Septembre 2020

• #5

Bonjour Lionel, Pierre,

Utiliser les touches de direction, le code du ThisWorkbook :

VB:

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 :

VB:

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+

 

Pièces jointes

• test_Image(1).xlsm

  217.6 KB · Affichages: 10

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 6 Septembre 2020

• #6

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 6 Septembre 2020

• #7

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 6 Septembre 2020

• #8

Génial

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 6 Septembre 2020

• #9

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

 

Vote positif 0 Vote négatif