1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

[EXCEL] Protéger plage de cellules [Résolu]

Signaler
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 -
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 -
Bonjour, j'aimerais savoir comment protégé uniquement une plage de cellules. La méthode de protection d'Excel permet de protéger une feuille entière, cependant j'ai une colonne où j'aimerais que cette protection ne s'applique pas. Comment pourrais je faire ?

Merci d'avance et bonne journée.
A voir également:

18 réponses

Réponse 1 / 18
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Inspire-toi de ceci, que je viens de faire sur ma machine : 

ActiveSheet.Unprotect
    Columns("B:B").Locked = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.Protect

sans chercher midi à quatorze heures
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Réponse 2 / 18
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 1
Enfaite j'ai trouvé il faut :


1) Télécharger
http://activex.microsoft.com/controls/vb6/mscomct2.cab
2) Décompresser dans c:\windows\system32

3) Copier dans un fichier texte les lignes ci-dessous
Code :
cd\windows\system32
regsvr32 /u /s mscomct2.ocx
regsvr32 /s mscomct2.ocx

4) Enregistrer ce fichier en fixocx.cmd

5) Clic-droit sur le fichier et choisir Exécuter en tant qu'administrateur

Dans Excel VBE, cocher Dans Références
Microsoft Windows Common Controls 2-6 0
et enfin
Dans Boites à outils [x] Microsoft Date and Time Picker control 6.0 (SP4)
Réponse 3 / 18
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Bonjour,

Protéger la feuille puis déverrouiller ta plage (la colonne en cause).


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Réponse 4 / 18
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 1
Je n'ai pas trouvé comment faire sur Excel 2007 =S.

Sinon en VBA ça serait peut être plus simple ?
Réponse 5 / 18
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Je n'ai pas trouvé comment faire sur Excel 2007


En mode création : ===>> Revision ===>> dans le groupe "Modifications" ==>> tu regardes et vois quoi ?
Par exemple ceci :
- une rubrique "Protéger la feuille" (parlante, non ?)
- une rubrique "Permettre la modification des plages" (également parlante, non ?)

Je me suis même lancé dans l'utilisation de l'enregistreur de macros, pour voir ===>> et j'ai eu ...
Fais-en autant.


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Réponse 6 / 18
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 1
Sauf que je ne suis pas si bête ^^ j'ai également vu cette section et lorsque je protège ma feuille je n'ai pas accès à "Permettre la modification des plages".

J'ai également essayé de définir "Permettre la modification des plages" avant de protégé ma feuille mais sans résultat.

Où alors je fais mal un truc.
Réponse 7 / 18
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Où alors je fais mal un truc


L'inverse tombe sous le sens :
1) "perrmettre la mùodification des plages"
2) "protéger la feuille"
Le tout, en mode création, bien sûr !

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Réponse 8 / 18
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 1
D'accord mais le truc c'est que je veux tout de même pouvoir affecter les cellules via des macros j'ai donc effectué ce code 

Sheets(1).Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True


Puis ensuite j'ai enregistré une macro pour autorisé une plage de cellules : * 

    ActiveSheet.Protection.AllowEditRanges.Add Title:="Plage1", Range:=Columns( _
        "H:H")



Sauf que lorsque j'inclu ce code dans ma macro de démarrage ça ne fonctionne pas ça me met : "erreur définie par l'application ou par l'objet".

Merci pour ton aide en tout cas :p
Réponse 9 / 18
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Je t'ai pourtant dit qu'il te fallait faire l'inverse, non ?
Relis-moi tranquillement !
SQur ta feuille (déprotégée d'abord) :
1) définir les cellules "autorisées"
PUIS
2) protéger ta feuille.
!

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Réponse 10 / 18
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 1
J'ai déjà essayé de faire l'inverse : 

ActiveSheet.Protection.AllowEditRanges.Add Title:="Plage1", Range:=Columns( _
"H:H")


ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True


Toujours le même problème =S
Réponse 11 / 18
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Cépavré !
Tu ne peux rien faire sans déprotéger d'abord ta feuille (c'est évident !)
ActiveSheet.Unprotect
est le premier geste à faire, avant toutes tes autres instructions

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Réponse 12 / 18
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 1
Enfaite je déprotège ma feuille lors de la fermeture du classeur excel du coup pour te prouver que ça ne marche quand même pas j'ai mis toute les instructions dans une même macro : 

ActiveSheet.Unprotect
ActiveSheet.Protection.AllowEditRanges.Add Title:="Plage1", Range:=Columns( _
"H:H")
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Réponse 13 / 18
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 1
It works !!! J'ai un nouveau problème maintenant c'est que lorsque j'arrive sur cette ligne : 

Sheets(1).Select
Feuil1.DTPicker1.Value = DateAdd("s", 1, Date)


j'ai ce message d'erreur "Propriété ou méthode non gérée par cet objet"
Quand je met en surbrillance la valeur de mon DTPicker j'ai aussi ""Propriété ou méthode non gérée par cet objet" donc c'est bien la Value qui foire
sur certain pc ça ne le fait pas alors que c'est le même partout t'aurais pas une petite idée ?

Merci de ton aide pour les protections des cellules
Réponse 14 / 18
Messages postés
12
Date d'inscription
jeudi 21 juillet 2011
Statut
Membre
Dernière intervention
26 juillet 2011
Je suis désolé mais je ne vois pas à par le téléchargement dont tu parles en dernier. Si c'est cela, ce n'est pas possible, je n'ai aucun droit d'installation sur ma station.
Et sinon, je veux bien que tu me dises quoi parce que vraiment je ne vois pas.
Réponse 15 / 18
Messages postés
12
Date d'inscription
jeudi 21 juillet 2011
Statut
Membre
Dernière intervention
26 juillet 2011
Dans l'aide je trouve ceci:

'La méthode ne peut pas être utilisée dans le contexte. Notamment, certaines méthodes d'objets Range nécessitent une plage qui contient des données. Si la plage ne contient pas de données, la méthode échoue. '


Or, toutes mes cases sont vides puisqu'elles sont à remplir par la suite par le fournisseur, penses-tu que c'est du à cela?
Réponse 16 / 18
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Voilà un bien "bel" exemple de ce à quoi l'on arrive lorsqu'une seconde question vient se greffer dans une discussion n'ayant aucun rapport avec cette seconde question.
Arrive un visiteur (ici KathRoz) et il ne voit pas que la seconde question est très différente de la première qui, elle, a été résolue !

____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Réponse 17 / 18
Messages postés
112
Date d'inscription
mercredi 19 mai 2010
Statut
Membre
Dernière intervention
14 mai 2021
 1
La question a été résolu mais a déclenché un autre problème du coup je pensais que ça serait plus pertinent de poser la question à la suite
Réponse 18 / 18
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
La question a été résolu mais a déclenché un autre problème du coup je pensais que ça serait plus pertinent de poser la question à la suite

Non ...
Il ne faut jamais faire ça === >> regarde le résultat lorsqu'un débutant visite
Et même "si". Le principe d'un forum technique est simple :
- une question === >> une résolution
- la question doit correspondre à un titre et la résolution également
C'est à partir de là, que se font ensuite les recherches de solution. Si 2 questions dans une seule discussion (surtout si de surcroît distincte) ===>> égarement et impossibilité d'utiliser valablement le moteur de recherches pour trouver la solution à la 2ème question venue en "verrue" de la première.
Je peux te paraître "vieux jeu", mais c'est là une discipline nécessaire si l'on veut qu'un forum technique remplisse valablement sa fonction première et ne se transforme pas en une espèce de "chat" autour de différents problèmes rencontrés dans l'élaboration d'une application.


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
Répondre Posez votre question