VBA / Excel 2003 - Sécuriser cellules
RussellD
Messages postés
60
Statut
Membre
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour à tous,
j'ai une feuille Excel sur laquelle je veux tout sécuriser sauf une cellule.
Je voudrais que cette cellule reste "libre d'entrée", c'est-a-dire qu'un utilisateur puisse changer sa valeur. Par contre, je voudrais etre sur qu'il ne puisse pas modifier sa mise en forme, notamment la couleur du texte qui doit rester la même.
Comment puis-je faire cela via VBA? merci d'avance pour vos réponses.
j'ai une feuille Excel sur laquelle je veux tout sécuriser sauf une cellule.
Je voudrais que cette cellule reste "libre d'entrée", c'est-a-dire qu'un utilisateur puisse changer sa valeur. Par contre, je voudrais etre sur qu'il ne puisse pas modifier sa mise en forme, notamment la couleur du texte qui doit rester la même.
Comment puis-je faire cela via VBA? merci d'avance pour vos réponses.
A voir également:
- VBA / Excel 2003 - Sécuriser cellules
- Liste déroulante excel - Guide
- Excel additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Word et excel gratuit - Guide
- Excel compter cellule couleur sans vba - Guide
4 réponses
Bonjour,
Il n'y a pas besoin de VBA, il suffit déverrouiller uniquement la cellule concernée (format de cellule, protection, décocher verrouillé) puis de protéger la feuille (outil, protection, protéger la feuille).
Patrice
Il n'y a pas besoin de VBA, il suffit déverrouiller uniquement la cellule concernée (format de cellule, protection, décocher verrouillé) puis de protéger la feuille (outil, protection, protéger la feuille).
Patrice
Re,
Si tu tiens vraiement a une macro VBA,
en supposant que la cellule autorisée soit B12 :
Patrice
Nicolas dit toujours : « C'est facile quand on connait la réponse ! »
Si tu tiens vraiement a une macro VBA,
en supposant que la cellule autorisée soit B12 :
Sub Test()
Cells.Locked = True
Range("B12").Locked = False
ActiveSheet.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Patrice
Nicolas dit toujours : « C'est facile quand on connait la réponse ! »
