verrouiller la mise en page

[perdinch]

bonjour,
sous excel 2003 comment peut on
verrouiller l acces à la mise en page d un onglet.
la protection du fichier n empeche paas la modification de la mise en page .
merci

 

[ccpapy]

Re : verrouiller la mise en page

bonjour;
je suis étonné ta question a déjà été vue 7 fois et personne n'a répondu

si j'ai bien compris, simplement en protégeant l'onglet lui-même
outils/protection/proteger la feuille (avec ou sans mot de passe)
en esperant que c'est ce que tu attendais, sinon désolé
à+

 

[Staple1600]

Re : verrouiller la mise en page

Bonjour


Testé sous XL 2000

Sub interdit_MEP()
Application.CommandBars("Worksheet Menu Bar").Controls("&Fichier").Controls("Mise en Page...").Enabled = False
End Sub
Sub Autorise_MEP()
Application.CommandBars("Worksheet Menu Bar").Controls("&Fichier").Controls("Mise en Page...").Enabled = True
End Sub

Reste le problème :
edit :Aperçu avant Impression
(ok problème réglé)
Application.Dialogs(xlDialogPrintPreview).Show False


Définir Zone d'impression aussi


C'est donc qu'un début de solution

 

[Staple1600]

Re : verrouiller la mise en page

Re


A tester (OK sous XL2000)

Sub mise_en_page_interdite()
Application.CommandBars("Worksheet Menu Bar").Controls("&Fichier").Controls("Mise en Page...").Enabled = False
Application.CommandBars.FindControls(ID:=30255).Item(1).Enabled = False
Application.CommandBars.FindControls(ID:=109).Item(3).Enabled = False
End Sub

Sub mise_en_page_autorisée()
Application.CommandBars("Worksheet Menu Bar").Controls("&Fichier").Controls("Mise en Page...").Enabled = True
Application.CommandBars.FindControls(ID:=30255).Item(1).Enabled = True
Application.CommandBars.FindControls(ID:=109).Item(3).Enabled = True
End Sub

Reste l'inhibition des raccourcis claviers

 

[ccpapy]

Re : verrouiller la mise en page

re,
oula, j'étais carrement à coté de la plaque si c'est ça qu'il voulait dire
j'imprime jamais moi ??? pour oublier la mise en page comme ça
à+

 

[perdinch]

Re : verrouiller la mise en page

merci de vos reponses que je vais tester.

perdinch

 

[dilack]

Re : verrouiller la mise en page

bonjour à tous,
Je souhaite utiliser ces deux macros pour verrouiller et déverrouiller une mise en page.
Comment on insere ces deux macro sous excel?
merci d'avance pour cos réponse.

 

[MichD]

Re : verrouiller la mise en page

Pour la mise en page,

On peut la figer dans une vue (affichage) personnalisée, lorsque vient le temps d'imprimer, une petite macro fait le travail!
Par la suite, même si un usager modifier la mise en page, la macro n'en tiendra pas compte!

Sub test()
With ThisWorkbook
    .CustomViews("toto").Show
    .ActiveSheet.PrintOut
    'Habituellement lorsque l'on détermine un affichage personnalisé
    'on débute par définir un affichage "Normal", par la suite on peut
     'définir autant de vue personnalisée que l'on désire d'une feuille.
    .CustomViews("Normal").Show
End With
End Sub