Verrouiller plage de cellule VBA

Résolu/Fermé
flag - Modifié le 14 mai 2018 à 23:10
eriiic
Messages postés
24393
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 mai 2022
- 14 mai 2018 à 23:06
Bonjour,

J'ai un classeur Excel que je dois envoyer à des collègues. J'ai une feuille de données dans laquelle je veux verrouiller la plage (range A1:F2). Ensuite de veux laisser la plage (range G1:J2) pour que mes collègues puisse inscrire leurs informations dans ces cellules.

Ils doivent ensuite me retourner leur fichier.

J'ai essayé ceci:


Sub Verrouillage()
    Sheets("OUTIL").Select
    Range("A1:F2").Select
        selection.Locked = True
    selection.FormulaHidden = False
    ActiveSheet.Protect Password:="motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
end sub

Ça ne fonctionne pas car ma protection de toute la feuille m'empêche d'écrire dans les cellules.

Vous pouvez m'aider?

Merci à l'avance!


2 réponses

J'ai trouvé ma réponse après plusieurs essais erreurs!

Sub VerrouillageTESTTEST()
    Sheets("OUTIL").Select
    Range("A1:F2").Select
        selection.Locked = True
    Range("G1:J2").Select
        selection.Locked = False
    selection.FormulaHidden = False
    ActiveSheet.Protect [/contents/64-mots-de-passe Password]:="motdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("A1").Select
End Sub
3