Protection partielle d'une feuille

L

La pi agace

Guest

• 24 Juin 2002

• #2

sélectionner les zones à ne pas vérrouiller.
puis format / cellule /protection
décocher protection
ok

ensuite,
outil /protection
proteger la feuille

ça devrait aller

 

Vote positif 0 Vote négatif

L

La pi agace

Guest

• 24 Juin 2002

• #3

sélectionner les zones à ne pas vérrouiller.
puis format / cellule /protection
décocher protection
ok

ensuite,
outil /protection
proteger la feuille

ça devrait aller

 

Vote positif 0 Vote négatif

S

SVri

Guest

• 24 Juin 2002

• #4

non, non !!

j'ai fait exactement cela, mais si tu fais un essai, tu verra que, sur les cellules que tu laisses dévérouillées, certaines actions sont inaccessibles (mettre en gras, par exemple).


Je pense qu'il faut agir sur le code VBA de protection des cellules / de la feuille. (??)

 

Vote positif 0 Vote négatif

R

ROBERT

Guest

• 24 Juin 2002

• #5

Fait "outils" "proteger la feuille" décoche "contenu" laisse "scénarios" et "objets"

mais cela n'empéche pas l'écriture

Cordialement
Robert rené
www.utilsfr.fr.fm

 

Vote positif 0 Vote négatif

S

SVri

Guest

• 25 Juin 2002

• #6

Le souci, si je décoche contenu, c'est que tout le texte de la feuille est modifiable.

Ce que je veux (je sais: je suis pénible !) c'est protéger uniquement certaines zones de la feuille de calcul.

Peut-être faut-il laisser la feuille déprotégée et créer une macro qui empêche la modification du contenu de certaines cellules.

Question: Comment déclancher une macro en sortie de cellule, ou lors de l'accès en modification pour en interdire la modif ?

 

Vote positif 0 Vote négatif

R

ROBERT

Guest

• 25 Juin 2002

• #7

Essaie ce code

' Protéger seulement A1 après saisie dans A1

'-Tu dois d'abord sélectionné toute ta feuille puis dans 'format\cell\protection décoché l'option Locked sinon l'ensemble de ta 'feuille est protégé.
'-Il faut précise l'adresse de ta cellule. Par exemple pour protéger 'uniquement la cellule A1 après une saisie :


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "A1" Then
ActiveSheet.Unprotect
Target.Locked = True
Target.FormulaHidden = False
ActiveSheet.Protect Contents:=True
End If
End Sub

 

Vote positif 0 Vote négatif

S

sylvain

Guest

• 25 Juin 2002

• #8

bonsoir,

ici le pb c'est la fonction annuler qui ne va pas aller.

A+

 

Pièces jointes

• protection.xls

  36 KB · Affichages: 104
• protection.xls

  36 KB · Affichages: 98
• protection.xls

  36 KB · Affichages: 100

Vote positif 0 Vote négatif

S

SVri

Guest

• 26 Juin 2002

• #9

Merci ROBERT et sylvain pour votre aide !

Il faut effectivement que je parte d'une "Sub Worksheet_Change". Je pense avoir maintenant les éléments .... à moi de jouer ! ;-)

(merci Sylvain pour le fichier exemple qui est bien documenté!)

A+ !!

 

Vote positif 0 Vote négatif