Verrouiller plage de cellule VBA [Résolu/Fermé]

Signaler
-
Messages postés
23807
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 janvier 2021
 -
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!


Afficher la suite
A voir également:

2 réponses

Réponse 1 / 2

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
2
Merci
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Réponse 2 / 2
Messages postés
23807
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 janvier 2021
 6 573
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
Posez votre question