Cellules protégées masquées

Bonjour,

Voici un fichier où il y a une plage (Info.Plage B3:F20) qui lorsque je sélectionne une cellule dans cette plage je veux qu'automatiquement la plage soit déprotégée et sans masque.

J'ai mis la macro dans la Feuil1 avec Private Sub Worksheet_SelectionChange(ByVal Target As Range) et cela ne fonctionne pas.

Merci de votre aide.

Oiseau bleu

Bonsoir oiseaubleu

Essaie comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("Info_Plage")) Is Nothing Then
        Application.ScreenUpdating = False
        Range("Info_Plage").Select
        Selection.Locked = False
        Selection.FormulaHidden = False
        Range("B3").Select
   End If
   Application.EnableEvents = True

End Sub

Application.EnableEvents = False ...... évitera que le change se refasse à chaque fois pendant que tu traites ta zone

Bonne soirée

Bonjour,

Une variante du code de Patty5046 afin d'éviter les Select ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Info_Plage")) Is Nothing Then
    Application.EnableEvents = False
        Application.ScreenUpdating = False
        Range("Info_Plage").Locked = False
        Range("Info_Plage").FormulaHidden = False
'''        Range("B3").Select  '' << sans les Select,  ceci n'est plus nécessaire
   End If
   Application.EnableEvents = True
End Sub

ric

Bonsoir,

dans les deux cas il faut remettre la protection si la sélection est en dehors de la plage, non ? Sinon à quoi sert-il de mettre la protection ?

D'ailleurs, une protection "qui saute" quand on sélectionne une cellule d'une plage, à quoi sert-elle, cette protection ? Autant ne pas en mettre...

@ bientôt

LouReeD

Donc en reprenant les codes ci-dessus :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Info_Plage")) Is Nothing Then
    Application.EnableEvents = False
        Application.ScreenUpdating = False
        Range("Info_Plage").Locked = False
        Range("Info_Plage").FormulaHidden = False
'''        Range("B3").Select  '' << sans les Select,  ceci n'est plus nécessaire
    Else
        Range("Info_Plage").Locked = True
        Range("Info_Plage").FormulaHidden = True
   End If
   Application.EnableEvents = True
End Sub

Mais pour que cela "fonctionne" il faut que la feuille elle-même soit protégée, donc il faut à un moment mettre :

ActiveSheet.Protect

Et du coup il faut mettre son opposé pour pouvoir faire les modifications...

@ bientôt

LouReeD

Bonjour et merci beaucoup pour vos réponses cela répond; mais il y a un autre problème.

Dans la zone Info_Plage(B3:F20), je veux copier de l'information dans ces cellules; mais je ne peux pas puisque le coller disparaît aussitôt que je clique sur une cellule de la plage.

Comment faire pour coller de l'information dans une ou plusieurs cellules de cette zone?

Merci,

Oiseau bleu

Bonjour à tous

Suis d'accord avec LouReed

On se mord la queue dans ton système...j'abandonne pour le moment

essaie de trouver une autre idée

Éventuellement, je reviendrai chercher une solution quand j'aurai le temps

En fait tu veux protéger masquer pour qui, puisque tu veux pouvoir tout de même faire de la saisie...peut-être suis-je stupide, mais je ne comprend pas bien

Bon courage

Bonjour et merci pour vos réponses,

Ce que je vous est présenté est juste un exemple d'un fichier plus volumineux ou je doit copier de l'information provenant de différents fichier Excel.

Souvent ce que je dois copier du fichier que je reçois est protégé ce qui rend la zone de mon fichier Excel protégé aussi. Alors je cherche une solution que lorsque je copie leurs fichiers dans mon fichier excel que ce que je copie soit déprotégé automatiquement.

Je pensais qu'en le déprotégeant lors de la copie cela fonctionnerait.

Merci,

Oiseau bleu

Bonsoir,

dans ce cas pourquoi ne pas faire "juste" un copier/coller valeurs, ce qui je pense aura pour conséquence de ne copier que les valeurs sans les MF des cellules, non ?

@ bientôt

LouReeD