Cellule sécurisée automatiquement après remplissage

Bonjour,

Je souhaiterais après avoir rempli certaines cellules d'une feuille Excel que celles-ci soient sécurisées automatiquement (ou après le premier enregistrement du fichier). Je ne sais vraiment comment poser le problème et par quel moyen y arriver. Auriez-vous une idée?

Merci d'avance de de votre précieuse aide.

Bonjour à tous,

Possible par macro, on verrouille les cellules en question,

il y a plusieurs façons de faire, il faudrait la feuille en indiquant quelles cellules

PS: la feuille est évidemment protégée.

en cas d'erreur de frappe ou modif, déprotéger la feuille.

Amicalement

Claude.

dubois a écrit :

Bonjour à tous,

Possible par macro, on verrouille les cellules en question,

il y a plusieurs façons de faire, il faudrait la feuille en indiquant quelles cellules

PS: la feuille est évidemment protégée.

en cas d'erreur de frappe ou modif, déprotéger la feuille.

Amicalement

Claude.

Re-bonjour,

Voici mon fichier (auquel les pros du forum ont grandement participé) En fait lorsque la cellule DE/5, (par exemple) est remplie et que l'ensemble du fichier est rempli, il faudrait qu'à l'enregistrement du classeur cette cellule ne puisse plus être transformée.

Merci pour votre aide

Bonjour,

En fait lorsque la cellule DE/5,....

C'est juste sur base de la cellule DE/5 ou d'autres cellules également ?

Ton code est assez curieux, à savoir que je ne vois pas l'utilité de tes boucles.

Une chose dans ton code "Valider", enlève toutes les instructions "Application.EnableEvents ...". Elles ne servent à rien dans ton cas.

Ate relire

Dan

Nad-Dan a écrit :

Bonjour,

En fait lorsque la cellule DE/5,....

C'est juste sur base de la cellule DE/5 ou d'autres cellules également ?

Une chose dans ton code "Valider", enlève toutes les instructions "Application.EnableEvents ...". Elles ne servent à rien dans ton cas.

Ate relire

Dan

Hello,

Non il y a plusieurs cellules telles G2 et A4. Je pense que ce sont les seules ..

re,

Voir le message de Claude qui te demandait qu'elles sont les cellules à protéger. Il faut les connaitre toutes pour faire le code.

Ton code valider pourrait etre celui-ci

Sub Valider()
With Sheets("RECTO")
.Select
If .Range("D5") = "" Then MsgBox (" Vous devez remplir D5  "): Exit Sub
If .Range("D6") = "" Then MsgBox (" Vous devez remplir D6  "): Exit Sub
If .Range("G5") = "" Then MsgBox (" Vous devez remplir G5  "): Exit Sub
If .Range("G6") = "" Then MsgBox (" Vous devez remplir G6  "): Exit Sub
If .Range("G8") = "" Then MsgBox (" Vous devez remplir G8  "): Exit Sub
End With
Sheets("Accueil").Visible = True
Sheets("RECTO").Visible = False
Sheets("VERSO").Visible = False
End Sub

Dan

Nad-Dan a écrit :

re,

Voir le message de Claude qui te demandait qu'elles sont les cellules à protéger. Il faut les connaitre toutes pour faire le code.

Dan

oui pardon,

donc les cellules DE/5, A4 et G2 devraient être sécurisées.

Par curiosité à quoi sert ce code "Application.EnableEvents"?

Merci d'avance

-- 18 Déc 2009, 11:36 --

Nad-Dan a écrit :

re,

Voir le message de Claude qui te demandait qu'elles sont les cellules à protéger. Il faut les connaitre toutes pour faire le code.

Ton code valider pourrait etre celui-ci

[code]Sub Valider()

With Sheets("RECTO")

Dan

Ah oui ça fonctionne bien et c'est plus lisible, merci.

re,

Bonjour Dan,

J'avais commencé à regarder, je n'ai pas compris s'il s'agit d'un fichier modèle que tu Enregistre Sous ?

en somme, quand tu clique "Valider" toutes les cellules sont verrouillées et les feuilles protégées.

Je t'ai modifié le contrôle des champs à remplir obligatoirement.

Tu as aussi un code pour déprotéger.

Amicalement

Claude.

édit: pour répondre aux messages, utilise "Répondre" plutôt que "Citer"

Merci à tous! et bonne année 2010!