Salut tout le monde,
 
J'aimerai empêcher le changement de mise en page de feuilles générées Excel par macro VBA. Les feuilles peuvent être des feuilles classiques ou des graphiques qui sont réalisées automatiquement.
 
J'ai fait une mise en page et je voudrais empêcher tout changement.
 
J'ai trouvé des codes pour empêcher l'impression mais pas le changement de mise en forme des pages.
 
Merci de vos réponses.  

T'as une propriété Protected ou quelque chose comme ça pour un objet Sheet. Regarde dans la référence VBA pour Excel

Voici ce que j'ai trouvé mais il n'y a rien pour empêcher la modification de la mise en page :

L'argument Contents protège la mise en page aussi, non ?
 
Sinon sous Excel 2003, y'a toutes ces options :

J'ai essayé

mais je peux modifier ma mise en page...
Ce serait quelle option pour Excel 2003 ?
 

Celles-là je pense :

Je vais essayer mais je pense que cela ne correspond pas à ce que je souhaite.
Je fais une mise en page de feuille de calcul ou de graphe où je mets des données en entête et en pied de page pour impression.
Je souhaiterai que les personnes utilisant l'appli ne puissent pas modifier ces paramètres.
J'espère avoir été plus compréhensible...
Merci de ton intérêt...

Je peux modifier ma mise en page avec les options de protect...
Ca ne va pas, hélas...
Je crois que je vais me résoudre à reparamétrer la mise en page avant leur impression avec l'évènement Workbook_BeforePrint()...
 

pour que la protection de la feuille soit efficace, ne faut-il pas aussi proteger le classeur ???

Je ne pense pas car avec la protection de la feuille, je ne peux pas modifier le contenu des cellules de la feuille.

Bonjour,
Oui, il ne me semble pas qu'il y ait de meilleure solution.
Mais s'il y a plusieurs feuilles dans le classeur il faut que tu inclues une clause :
Select case ActiveSheet.Index
A+

Cela marche sans, mais à quoi cela sert ?
J'ai fait cela:

J'ai rajouté d'autres choses pour connaître l'utilisateur et mettre son nom dans la mise en page...
 

Bonsoir,
Tu vas avoir cette mise en page pour TOUTES les pages du classeur
Si tu n'as qu'une seule page à contrôler une condition if suffit
 
If ActiveSheet.Name = "MaFeuilleAControler" Then
With ActiveSheet.PageSetup  
         .LeftHeader="..."  
         .CenterHeader="..."  
         .....  
End With  
End If
 
Bien sur si ton classeur ne comporte qu'une feuille imprimable ou si elles ont toutes la même mise en page la question ne se pose pas...
 
A+

Merci.
 
En effet, je vais avoir la mise en page pour toutes les feuilles. Mais c'est ce que je souhaitais, donc c'est nikel.    
 
Encore merci à tous le monde.  

C'est encore moi avec une autre question tordue...    
 
Voilà, j'ai une macro de création de graphique qui s'exécue normalement, je mets en forme le graphique (axe, échelle,...) et lorsque je veux sauver mon travail, je fais appel à la fonction ActiveWorkbook.Save.
 
J'ai conditionné l'application pour qu'elle vérifie avant sauvegarde des "trucs" sur une feuille cachée ( ) (dans ThisWorkbook avec Workbook_BeforeSave).
 
La fonction de sauvegarde conditionnelle marche toute seule, mais lorsque je l'appelle dans ma macro de création de graphiques, elle ne marche plus car incapable de faire fonctionner le fonction suivante :

J'ai tout fait pour voir ce qui ne vas pas. J'avais enlevé la mise à jour de l'écran pour ma fonction et je l'ai restauré avant l'appel de la sauvegarde => rien.
J'ai sélectionné une autre feuille que celle du graphe (feuille sélectionnée avant appel de la sauvegarde) pour voir si ce n'était pas la sélection du graphe qui empêchait de sauvegarder => rien.
 
N'y aurait il pas des limites pour ce genre de scénario de code ? J'ai d'ailleurs découvert que Excel ne permet pas de réaliser un graphe à partir d'une feuille ayant un nom trop long (plus de 20 caractères, je crois...).
 
Y a t'il quelqu'un qui a été confronté au même problème ?

Bonsoir,
Des guillemets peut-être (sinon il considère mafeuille comme une variable...)
Worksheets("mafeuille" ).Visible=True
A+

Il y a bien des guillemets dans ma macro... Je me suis aperçu que dans d'autres macros faisant appel au Workbook.Save "conditionné", cela plante également.  
Tant pis, il faut bien que l'utilisateur fasse au moins quelque chose. Charge sera à lui de sauver le travail que l'appli aura effectuée (à sa place   ).

j'ai eu ce genre de probléme aussi avec une feuille cachée, et c'etait justement le fait qu'elle soit cachée qui generait une erreur.
 
Apparement VBA n'aime pas qu'on execute des codes sur des feuilles qui sont cachées.
Tu la passe en visible avant d'executer le code qui s'y trouve ?
 

ah ben je viens d'essayer et ca marche quand meme

En fait, j'ai une feuille cachée qui stocke le nom de l'utilisateur. J'ai modifié le "ThisWorkbook" de manière à vérifier l'utilisateur avant l'enregistrement. Cela fonctionne lorsque je veux enregistrer (en cliquant sur la disquette par exemple).
Mais si je fais appel à la fonction Workbook.Save dans une macro, Excel tient compte de la sauvegarde "conditionnée", mais il n'arrive pas à décacher la feuille, et donc récupérer le nom de l'utilisateur...

Bonsoir,
Je ne pense pas.  
Visible ou non n'a rien à voir avec l'exécution d'une macro.
Tu n'as pas besoin de rendre une feuille visible pour connaitre le contenu d'une cellule : il suffit de faire  
Msgbox Worksheets("mafeuillecachée" ).Range("A1" ).Value  
...pour se rendre compte que le contenu reste accessible pour VBA.
Je pense plutôt à une autre erreur,classeur protégé par exemple ou appel d'une Private Sub?
En fait si j'ai bien compris tu essaies d'appeler Workbook_BeforeSave depuis une autre macro et celà ne PEUT pas marcher parce que Workbook_BeforeSave est Private
Aucune procédure évènementielle (Private Sub) ne devrait être appelée par une macro en tout cas elle ne PEUT pas être appelée à partir d'un autre module.
Sinon, as-tu un gestionnaire d'erreur? Il faudrait plutôt envisager un débogage. Pose un stop et effectue la zone de macro douteuse ligne par ligne avec F8 pour vérifier ce qu'il se passse.
Mais as-tu vraiment besoin de stocker le nom de l'utilisateur dans une feuille cachée? Une variable publique pourrait suffire...
A+

En effet, je peux accéder sans "décacher" la feuille...

Je ne fais pas appel directement à Workbook_BeforeSave mais à Workbook.save... Mes modules sont tous privés et mes fonction ont des arguments factices pour éviter qu'on puisse les lancer comme on veut.

J'ai fait ce que tu as dit avant de poster mon problème et c'est là que j'ai vu qu'il exécute bien 'Worksheets("maFeuille" ).Visible = xlSheetVeryHidden' mais que cela n'a aucune action sur la feuille. Maintenant que je sais qu'on n'est pas obligé de "décacher" une feuille pour y accéder par VBA. Je pense que je pourrai me débrouiller autrement.

Je gère à la fois le nom d'utilisateur, le nom du fichier et son emplacement et une clé (xxxx-xxx-x...) donnée (pour l'utilisation de l'application).Je fais cela pour éviter que mon appli ne circule sans mon accord ou que si c'est le cas, cela se voit (voir mon problème de mise en page de feuille)

Encore Merci à tous,
 
J'ai pu résoudre le problème. Je peux donc faire appel à la fonction ActiveWorkbook.Save "conditionnée" même à partir d'une macro "private". Cela ne marchait pas car je décachais la feuille, que je sélectionnais la cellule de la feuille active (normalement la feuille qui se décache) et je prenais mes infos.
Maintenant, je prends mes infos directement. Cela m'évite des traitements et je gagne du temps d'exécution.
Merci encore
       
 
Joyeux Noël à tous

Si ca peut t'aider ,pour supprimer temporairement l'evenement BeforeSave:
 

 
Désactive les evenements avec EnableEvents en false puis remet en True aprés