Images qui n'est pas protegées

[marcelio]

Bonjour le Forum,

Sur ma feuille qui est protégée mais sans mot de passe,
j'ai plusieurs commentaires que je peux modifier à volonté.
J'ai aussi plusieurs images.

J'utilise ce code à la fin de ma macro pour pouvoir modifier les commentaires.
"ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True"
qui fonctionne bien mais le soucis vient que maintenant mes images ne sont plus protégées et peuvent être supprimer ou déplacer.
Si vous avez une solution je suis preneur.

Merci

Marcelio

 

[job75]

Re : Images qui n'est pas protegées

Bonjour marcelio,

Dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Comment
Me.Protect
For Each c In Me.Comments
  If c.Parent.MergeArea.Address = Target.Address Then
    Me.Unprotect
    Exit For
  End If
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub

La 1ère macro déprotège la feuille si la cellule active contient un commentaire.

La 2ème macro (facultative) empêche de modifier le contenu de la cellule quand elle contient un commentaire.

Edit : ajouté MergeArea au cas où la cellule active est fusionnée.

A+

 

[job75]

Re : Images qui n'est pas protegées

Re,

Pas sûr que la solution que j'ai donnée soit d'un grand intérêt.

En effet quand la cellule active est dotée d'un commentaire on peut toujours aller modifier une image.

A+

 

[marcelio]

Re : Images qui n'est pas protegées

Bonjour job75,

Merci de ta réponse qui fonctionne bien,
mais maintenant j'ai un autre problème :
un double clic sur plusieurs cellules m'ouvrais un USF.
Le double clic ne fonctionne plus du tout.
Si tu à une autre solution
Je te remercie
A+
Marcelio

 

[marcelio]

Re : Images qui n'est pas protegées

Re,

c'est vrai j'ai pas fait attention mais quand ont sélectionne la cellule avec le commentaire ont peut supprimer ou modifier l'image.
A+
Marcelio

 

[job75]

Re : Images qui n'est pas protegées

Re,

Pour remédier au problème soulevé au post #3, on peut masquer les images/objets quand la cellule active est dotée d'un commentaire :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Comment
Me.Protect
Me.DrawingObjects.Visible = True
For Each c In Me.Comments
  If c.Parent.MergeArea.Address = Target.Address Then
    Me.Unprotect
    Me.DrawingObjects.Visible = False
    Exit For
  End If
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'macro facultative
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End Sub

A+

 

[marcelio]

Re : Images qui n'est pas protegées

Re,

Ok c'est super comme ça,
Mais aurait tu une solution pour ouvrir mon USF avec un double clic.
Si je ne peux l'ouvrir cela ne m'arrange pas.

A+

 

[job75]

Re : Images qui n'est pas protegées

Re,

Rien n'empêche la macro Worksheet_BeforeDoubleClick de fonctionner.

Pour que l'UserForm puisse entrer des valeurs dans les cellules, n'utilisez pas Worksheet_Change.

Voyez vous-même car je n'ai plus le temps.

A+

 

[marcelio]

Re : Images qui n'est pas protegées

Re,

Merci de votre aide
Bonne fin de journée à vous et au Forum
A+

Marcelio