Interdire modifications

[Papy Novice]

Bonsoir le forum,
Je vous remercie par avance si vous pouviez m'indiquer comment interdire toute modification sur une feuille (un classeur) hors des zones prévues à cet effet.
Vous en remerçiant par avance, je souhaite à chacun, chacune une excellente soirée.
Jean

 

[Temjeh]

Bonjour Papy Novice

Tu sélectionnes les cells qui peuvent être modifiées

Clic à droite dans format puis dans protection et là tu ote la protection
Ensuite tu protège ton classeur ou ta feuil dans outils ...protection

A++

Temjeh

 

[Papy Novice]

Bonsoir Temjeh,
Merci pour ton attention à ma demande, mais je ne peux faire ce que tu me dis et que je connaissais car JE NE PEUX PAS protéger le fichier, c'est pourquoi je demandais si cela était possible par Vba car les utilisateurs communs ne savent même pas ce qu'est le Vba. Ainsi, le fichier ne serait pas OFFICIELLEMENT protégé tout en l'étant.
Me suis-je bien fait comprendre ?
Cordialement et te souhaitant une excellente soirée.
Jean

 

[nicolas 65]

Bonojour,

If Not Intersect(Target, Range("P42😛80")) Is Nothing Then Range("C" & ActiveCell.Row).Select

Dès que tu sélectionne une cellulle entre P42 et P80 tu est automatiquement rejeté en colonne C.

Est-ce que c'est ce que tu souhaites.

 

[Papy Novice]

Bonsoir Nicolas,
Super et Merci c'est exactement ce que je désirai.
Cordialement à toi et long vie au forum.
Très bonne soirée.
Jean

 

[nicolas 65]

Bonsoir,

Je tenais à apporter une précision. Cette formule n'est pas de moi... mais apparamment elle n'intérese pas que moi...

 

[Papy Novice]

Bonjour nicolas 65

Je reviens vers toi au suhet de la formule de protection,

Private Sub Protect()
If Not Intersect(Target, Range("B1:U100")) Is Nothing Then Range("A" & ActiveCell.Row).Select
End Sub

Je placé le code sur ma feuille et il ne fonctionne pas. Quelles erreure ai-je commise ?
Merci de me renseigner
En te souhaitant un excellent Week-end.
Jean

 

[Nicolas 65]

Bonjour Papy Novice,

Il faut bien mettre ton code sur ta feuille mais il faut changer Private Sub Protect() par Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Ce qui donne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B1:U100")) Is Nothing Then Range("A" & ActiveCell.Row).Select
End Sub

@+