Verrouiller plage de cellule VBA Résolu/Fermé

Question

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!


Configuration: Windows / Chrome 66.0.3359.139

flag · Accepted Answer

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

eriiic · Answer

Bonjour,

c'est bien d'avoir trouvé.
Mais cela peut être fait manuellement, la macro est inutile.
Aller dans Format de cellule / Protection pour (dé)verrouiller une sélection, puis protéger la feuille.
eric

Verrouiller plage de cellule VBA

2 réponses

Discussions similaires