Verrouiller cellules [Résolu]

Signaler
Messages postés
8
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 février 2008
-
Messages postés
8
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 février 2008
-
Bonjour,

Je souhaite faire une base de données où en cliquant sur un bouton "mise à jour" les lignes remplies de la feuille base soient verrouillées et grisées.
Voila mon petit bout de code :

Private Sub Cmd_mise_a_jour_Click()
Dim i As Variant
Sheets("base").Activate
i = Range("a8").End(xlDown).Address
i = Range(i).Row
With Worksheets("base")
.Range(Cells(8, 1), Cells(i, 13)).Interior.ColorIndex = 15
.Range(Cells(8, 1), Cells(i, 13)).Locked = True
End With
End Sub

Et ça ne marche pas !!!!

J'ai lu un autre sujet, sur ce thème. Il faut protéger la feuille puis dévérouiller toutes les cellules pour reverouiller les quelques lignes que l'on souhaite protéger ? Comment fait on ça concrêtement dans ce code ? Pouvez vous m'aider ? Merci d'avance.

3 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Utilise l'enregistreur de macro et le code sera généré automatiquement.

Si tu ne sais pas comment procéder pour le verrouillage/déverrouillage, sélectionne toutes les cellules, click droit Format de cellules. Dans l'onglet protection, tu décoches la boîte "Verrouiller".
Ensuite, tu sélectionnes les cellules que tu veux verrouiller et fais la même chose à l'inverse (tu coches la boîte).
Finalement, tu vas dans le menu Outils / Protection / Protéger la feuille...

PS: il y a un forum dédié à VBA ...

MPi²
Messages postés
8
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 février 2008

Je vais essayer, merci beaucoup
Messages postés
8
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
9 février 2008

ça a marché, encore un grand merci MPi.
A bientôt, sur le forum dédié aux pas doués pour VBA !