ajouter verouiller cellule a une macro

arrazki · 16 Avril 2013

Bonjour,

J'ai créer une macro qui me permet de report une valeur a partir d'une couleur verte.
dans mon fichier j'ai fais une macro qui reporte la valeur qui se trouve en AB1. C'est à dire s'il ya une couleur vert dans une cellule de la colonne O alors on reporte la valeur de AB1 en Z. la macro marche bien! mais je voudrai ajouté kelkechose a cette marco mais je n'y arrive pas.
Je voudrai qu'une fois la valeur renseigner en Z la cellule renseigner se verouille. Je ne veux verouiller que la celleule renseigner et et éventuelment mettre une couleur pour montrer que c'est verouiller.

Pouvez m'aider?

C'est une vrai colle

Ci-joint le fichier

Yaloo · 16 Avril 2013

Re : ajouter verouiller cellule a une macro

Bonjour arrazki,

Pour verrouiller une cellule il faut dans un premier temps :
Pour la cellule Z1 : Range("Z1").Locked = False ou [Z1].Locked = False ou Cells(1, 26).Locked = False

Puis protéger ta feuille, pour Feuil1 : Sheets("Feuil1").Portect "MotDePasse"

A te relire

Martial

arrazki · 16 Avril 2013

Re : ajouter verouiller cellule a une macro

la macro se bloque! je veux k'une fois remplie la cellule se verouille

Yaloo · 16 Avril 2013

Re : ajouter verouiller cellule a une macro

Re,

Pardon j'ai fait l'inverse. Il faut que tu déverrouilles toutes tes cellules, tu cliques sur l'intersection entre les N° de ligne et les Lettres des colonnes. Normalement toutes tes cellules vont être sélectionnées.
Clic-droit puis Format des cellules, dans l'onglet "Protection" tu décoches "Vérouillée".

Ensuite dans ta macro, il faut faire 3 choses :

1 - En début de macro il faut déprotéger ta feuille avec

Sheets("Feuil1").Unprotect "MotDePasse"

2 - Vérouiller ta cellule avec

Range("Z1").Locked = True

3 - Re-vérrouiller ta feuille avec

Sheets("Feuil1").Protect "MotDePasse"

Normalement, ça devrait fonctionner.

A+

Martial

arrazki · 16 Avril 2013

Re : ajouter verouiller cellule a une macro

impossible! kan je lance la macro elle se bloque. je pense k'une fois verouiller la macro n'arrive pas a recalculer.
Peux tu regarder stp dans mon fichier excel? ça fais des jours que je bloque dessu! j'ai l'impression que c'est impossible.

Yaloo · 16 Avril 2013

Re : ajouter verouiller cellule a une macro

Re,

Le problème, c'est que dans ton fichier il n'y a pas de macro avec des couleurs mais juste une fonction si_spéciale.

Donc difficile de tester quoi que ce soit.

A+

arrazki · 19 Avril 2013

Re : ajouter verouiller cellule a une macro

Yaloo à dit:
Re,

Le problème, c'est que dans ton fichier il n'y a pas de macro avec des couleurs mais juste une fonction si_spéciale.

Donc difficile de tester quoi que ce soit.

A+

Re,

Dslé je pensai avoir mis la macros
Ci-joint le fichier avec la mcro dans visual basic

Merci

Yaloo · 19 Avril 2013

Re : ajouter verouiller cellule a une macro

Bonjour arrazki,

Vois ton fichier ci-dessous, ta macro modifiée et une autre pour mettre les cellules en vert :

Le mot de passe est 123

A+

Martial

arrazki · 23 Avril 2013

Re : ajouter verouiller cellule a une macro

Merci beaucoup martial c parfait

arrazki · 23 Avril 2013

Re : ajouter verouiller cellule a une macro

aH! dslé de revenire vers toi! ta repris le nom de l'onglet pour boquer la feuille mais le pb c que le nom de mon ongler 28-02-2012 est variable, du coup la macro bloque si je change le nom.

Yaloo · 23 Avril 2013

Re : ajouter verouiller cellule a une macro

Bonsoir arrazki,

Il suffit de remplacer

Sheets("Au 28-02-2013").Unprotect MdP

et

Sheets("Au 28-02-2013").Protect MdP

Par

ActiveSheet.Unprotect MdP

et

ActiveSheet.Protect MdP

Cela mettra les protections et déprotections sur la feuille active.

A+

Martial

arrazki · 30 Avril 2013

Re : ajouter verouiller cellule a une macro

Bonjour Martial,

C'est niquel ça marche super bien

Merci beaucoup

ajouter verouiller cellule a une macro

arrazki

XLDnaute Junior

Pièces jointes

Yaloo

XLDnaute Barbatruc

arrazki

XLDnaute Junior

Yaloo

XLDnaute Barbatruc

arrazki

XLDnaute Junior

Yaloo

XLDnaute Barbatruc

arrazki

XLDnaute Junior

Pièces jointes

Yaloo

XLDnaute Barbatruc

Pièces jointes

arrazki

XLDnaute Junior

arrazki

XLDnaute Junior

Yaloo

XLDnaute Barbatruc

arrazki

XLDnaute Junior

Discussions similaires