Bloquer feuille EXCEL et utiliser des Chart [Résolu/Fermé]

Signaler
-
 @lex -
Bonjour,

J'approche actuellement la fin de mon projet qui se fait sur Excel et je commence donc a m'inquiéter pour tout ce qui est protection du fichier pour un utilisateur lambda.

J'aurais voulu savoir si quelqu'un a une idée pour pouvoir protéger une feuille Excel(ne pas déplacer les images, ou les bouton que j'ai créer...) tout en pouvant continuer a utiliser des macros qui créent des graphiques ( donc des charts )..

J'suis preneur de toutes vos propositions

Cordialement,

Alex
étudiant

6 réponses

Messages postés
337
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
9 mai 2013
89
Bonjour,
tu peux protéger ta feuille comme tu veux:
tu peux empécher:
- la selection des cellules et graphiques.
- le click droirt sur cellule (tu protège format cellule).
- .....
bien sur pour le fonctionnement correct des macros qui surtout en s'exécutant selectionnent des cellules la protection doit etre enlevée au début de la macro et remédé à la fin

en tout cas dis moi ce que tu veux exactement je t'envoie le code
@+
salut et merci déja,

ca parait une très bonne idée d'enlever la protection au début de la macro qui créée la courbe et de la remettre ensuite mais s'il y a une autre solution je suis prenant parce qu'il faudrait que je mette et enlève la protection assez régulierement( sur plusieurs boutons où je supprime ou recréée des graphique)..

on ne peut pourrait tout simplement accorder la création des graph?

sinon j'ai pas réussi a utiliser ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
et : ActiveSheet.Unprotect dans le module qui qui ajoute le chart
( j'ai essayé avec Sheet("Son Nom").Protect ...ca marche pas non plus )
Messages postés
337
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
9 mai 2013
89 > @lex
pour protéger ta feuille il te suffit de mettre

au début de macro (bien sur après sub ) :(tu remplace "kadeh" par ton mot de passe"

ActiveSheet.Unprotect Password:="kadeh"


'et à la fin ( avant end sub)
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True, Password:="kadeh"


'@+
>
Messages postés
337
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
9 mai 2013

aaarrf

merci beaucoup, c'est bon ca marche très bien!
j'avais fais une erreur a la con...comme trop souvent j'trouve!

t'avais une autre solution en tête (pour simplement autoriser l'ajout et la suppression de graph)?

sinon ça me va , j'ferais avec!
Messages postés
337
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
9 mai 2013
89
oui il ya mais je peux maintenant (dison le soir)
je suis obligé de déconnecter maintenant car j'ai un déplacement urgent pour une intervention à l'hôpital
donc si tu peux on continue ce soir.
bonne journée
Un autre probleme maintenant, lorsque je déplace ma souris Excel se met à "scintiller" pendant un court instant !! ( 3-4 secondes maximum)

peut être que quelqu'un sait d'où peut provenir ce désagrément , j'ai un peu cherché, mais en vain ...
aaarrr2, c'était sans doute a cause de graphiques qui étaient restaient affichés sur d'autres feuilles
Messages postés
337
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
9 mai 2013
89
salut @lex
quelle sont les graphique que tu crée?
est ce que ce phénomène apparait sur une seule feuille ou sur toute les feuille?
@+
non, ca apparaissait sur toutes les feuilles; notamment sur la page d'accueil où il n'y a pas de graphique; voilà la macro qui créée les graph si ca peut t'aider :°)

Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Circu").Range("G30")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Circu!x"
ActiveChart.SeriesCollection(1).Values = "=Circu!y"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Circu"