Interdire modifications

T

Temjeh

Guest

• 17 Février 2005

• #2

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

 

Vote positif 0 Vote négatif

P

Papy Novice

Guest

• 17 Février 2005

• #3

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

 

Vote positif 0 Vote négatif

N

nicolas 65

Guest

• 17 Février 2005

• #4

Bonojour,

If Not Intersect(Target, Range("P4280")) 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.

 

Vote positif 0 Vote négatif

P

Papy Novice

Guest

• 17 Février 2005

• #5

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

 

Vote positif 0 Vote négatif

N

nicolas 65

Guest

• 17 Février 2005

• #6

Bonsoir,

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

 

Vote positif 0 Vote négatif

P

Papy Novice

Guest

• 18 Février 2005

• #7

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

 

Vote positif 0 Vote négatif

N

Nicolas 65

Guest

• 18 Février 2005

• #8

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

@+

 

Vote positif 0 Vote négatif