Images qui n'est pas protegées

job75

XLDnaute Barbatruc

• 17 Avril 2014

• #2

Re : Images qui n'est pas protegées

Bonjour marcelio,

Dans le code de la feuille :

Code:

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+

 

Dernière édition: 17 Avril 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2014

• #3

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+

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 17 Avril 2014

• #4

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

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 17 Avril 2014

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2014

• #6

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 :

Code:

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+

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 17 Avril 2014

• #7

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2014

• #8

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+

 

Vote positif 0 Vote négatif

M

marcelio

XLDnaute Occasionnel

• 17 Avril 2014

• #9

Re : Images qui n'est pas protegées

Re,

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

Marcelio

 

Vote positif 0 Vote négatif