Verrouiller plage de cellule VBA

Résolu/Fermé

flag - Modifié le 14 mai 2018 à 23:10
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 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!

A voir également:

Vba verrouiller cellule
Verrouiller cellule excel - Guide
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Aller à la ligne dans une cellule excel - Guide
Si cellule contient texte alors ✓ - Forum Excel

2 réponses

Réponse 1 / 2

flag
Modifié le 14 mai 2018 à 23:10

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

Discussions similaires

Verrouiller cellule selon condition

récupérer la valeur de la dernière cellule no vide

si plage contient du texte alors ....

code vba pour colorier des cellules selon valeur

Actualisation automatique de données excel (OnTime

Ignorer les cellules vides (fonction SI)

Discussions similaires

Newsletters