Verrouiller plage de cellule VBA
Résolu
flag
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
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:
Ç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!
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!
A voir également:
- Vba verrouiller cellule
- Verrouiller cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Comment verrouiller son whatsapp - Guide
- Aller à la ligne dans une cellule excel - Guide
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
