Discussion :

[Pitchou06]

Bonjour à toutes et à tous!

Je viens à vous avec un problème assez embettant (pour ma part...) concernant la protection des feuilles et cellules! Comme on dit, "Chaque problème à une solution"! (Enfin j'espère )
Après de nombreuses recherches sur internet, documentation et forum, je contaste que le problème n'a jamais été soulevé!! (Si j'ai bien cherché )
C'est pourquoi je me tourne vers vous pour me guider au mieux vers une solution .

Mon problème est le suivant:
J'ai une feuille excel protégée sur laquelle j'ai autorisé la modification de certaines cellules et d'autres non.
J'aimerais savoir si, sur ces cellules verrouillées, je peux empécher l'apparition du message d'excel me disant "La cellule [blablabla] est protégé et en lecture seule!" tout en concervant le ciblage de la cellule!!
J'ai vu beaucoup de solutions qui ne permettent pas de pouvoir "sélectionner" (cibler) la cellule verrouillée!

Ce que je voudrais c'est continuer à sélectionner cette cellule mais en empéchant la modification à la main.
Je m'explique, j'ai créé un bouton sur une barre d'outil faisant référence à plusieurs listbox qui, selon la cellule sélectionnée, propose telle ou telle liste de choix et entraine une modification de la cellule.
Je ne veux pas que l'utilisateur puisse la modifier à la main c'est pourquoi je les ai protéger.
Je sais que le message d'excel visant l'utilisateur à ôtez la protection de la feuille pour modifier la cellule est important à titre d'information mais s'il pouvait ne pas apparaître quand l'utilisateur click sur ces cellules(ou alors proposer mon propre message d'information!) ça m'arrangerait .

Auriez-vous une solution à mon petit problème, svp?

[SmallFlower]

Salut,

Avec ce code (à insérer dans le module de classe de la feuille considérée) ça devrait être bon:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Locked = True Then
  Application.DisplayAlerts = False
    MsgBox "Message perso", vbOKOnly + vbInformation, "Message perso"
  Application.DisplayAlerts = True
  End If
End Sub

[Pitchou06]

Salut SmallFlower!

Merci pour cette réponse rapide!

Ton code fonctionne en effet lorsqu'un changement est opéré sur la feuille à la cellule concernée!

En faite je me suis mal exprimé en disant "Click" au lieu du "Double click" sur la cellule. Puisque c'est le double click qui va activer la modification de la cellule et c'est là que je veux empécher le message d'apparaître!

Alors j'ai aussi essayé ton code sur l'évènement : Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) mais j'ai le même problème, le message apparaît après le double click. Ce qui est TOTALEMENT stupide de ma part puisque c'est BeforeDoubleClick ^.^! Mais tu as cerné mon problème et je vois pas où implenter ce code pour empécher ce foutu message!!

J'ai aussi essayé ce code en enlevant (que je remettrais plus tard):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = True

donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Locked = True Then
    Application.DisplayAlerts = False
    MsgBox "Test", vbOKOnly + vbInformation, "Test"
  End If
End Sub

Aurais-tu une autre solution?

[SmallFlower]

Et voila le travail:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Locked = True Then
      MsgBox "Message perso", vbOKOnly + vbInformation, "Message perso"
      Cancel = True
  End If
End Sub

[Pitchou06]

Tout simplement!! :o

Merci infiniment, la solution était sous mon nez!
Ca marche nickel!

Puisque j'y suis, pourrais-tu m'expliquer le principe de ce Booléen appliqué à cette évènement, stp?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cancel = True

Je suis sur les évènements et leurs conditions depuis peu et j'aimerais connaître l'étendu de son pouvoir!

Merci encore pour cette réponse rapide et efficace!

[SmallFlower]

Si Cancel = False : L'évènement s'exécute normalement
Si Cancel = True : L’exécution de l'évènement est annulée

Et je parle bien de l'évènement 'DoubleClick' et non pas de 'BeforeDoubleClick'.

[Pitchou06]

Okay!

Merci beaucoup de m'avoir accordé de ton temps!

Bonne journée