verrouiller cellulesRésolu

Question

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.

cs_MPi · Accepted Answer

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²

yapapeno · Answer

Je vais essayer, merci beaucoup

yapapeno · Answer

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

Verrouiller cellules

3 réponses

Votre réponse

Discussions similaires