Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Protéger la mise en page

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion TenderNath
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

TenderNath

XLDnaute Nouveau
😕 Bonjour,

J'ai un classeur qui est partagé et protéger qui permet aux utilisateurs d'inscrire des données dans certaines cellules. Par contre, je ne veux pas que les utilisateurs puissent modifier la mise en page. Comment faire???

Merci!
 
Trier par date Trier par votes
Re : Protéger la mise en page

Bonsoir Tendernath,

Pour cela, il faut coder en dur la mise en page de ta/tes feuilles
Uilises l'enregistreur de macro pour enregistrer ta/tes mise en page

Ensuite dans
Code: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
Tu mets le code obtenu

Ce qui imprimera la/les feuilles selon tes souhaits 😉

A+
 
Vote positif 0 Vote négatif
Re : Protéger la mise en page

Bonsoir TenderNath,

Si ton classeur est protégé, (plus de réseau pour tester le partage), je ne vois pas comment les utilisateurs peuvent encore modifier la mise en page.... sauf si tu l'as permis dans les options de partage et de protection. (n'existe pas sous Excel 2000 et plus trop la mémoire sous 2003)

Bonne soirée.

Jean-Pierre
 
Vote positif 0 Vote négatif
Re : Protéger la mise en page

Manque d'expérience dans ce domaine oblige....

J'inscris où le code que tu me donnes???

Merci énormément!

 
Vote positif 0 Vote négatif
Re : Protéger la mise en page

Je vais finir par y arriver.....

Voici ma macro: Sub Effacer()
'
' Effacer Macro
' Macro enregistrée le 2010-05-14 par nlabrosse
'

'
Dim Msg, Style, Title, Response, MyString
Msg = "Désirez-vous réinitialiser les données?"
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Radio-Ouvriers"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then

Range("A3:A114,D3:AA114").Select
Range("D114").Activate
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A3:A114,D3:AA114,B2").Select
Range("B2").Activate
Selection.ClearContents

Else
MsgBox ("La réinitialisation n'a pas été exécutée")
End If

Range("D3").Select

End Sub


Peux-tu me dire où insérer ce code: Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub

En inscrivant le code donné, les utilisateurs ne pourront plus modifier les cellules (genre couleur ou Police)???

Merci encore!!😱






BrunoM45 à dit:
Re,

Oups désolé, c'est dans ThisWorkbook 😉

A+
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
285
Phil69970
S
  • Question Question
Microsoft 365 Protéger des cellules de la feuille en permettant d'agrandir les colonnes
Réponses
6
Affichages
154
Sissou71
S
M
  • Résolu(e)
XL 2013 Feuille protégée avec certaines cellules verrouillées
2
Réponses
19
Affichages
441
Manutela
M
T
  • Résolu(e)
Microsoft 365 Déverrouiller un projet VBA par code
2
Réponses
20
Affichages
517
ThierryP
T
R
  • Question Question
Microsoft 365 Protéger les mots de passe
2
Réponses
17
Affichages
482
Phil69970
A
  • Question Question
Autres Protégé un fichier csv par mot de passe
2
Réponses
16
Affichages
784
job75
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
138
TooFatBoy
  • Question Question
Microsoft 365 Mise en frome conditionnelle de lignes par dates différentes
2
Réponses
19
Affichages
377
TooFatBoy
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
355
Yogean
Y
B
  • Question Question
XL 2021 Macro bloquée - Feuille protégée
Réponses
6
Affichages
263
Nain porte quoi
N
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
190
Pepepichnette69
P
J
  • Question Question
XL 2013 mise en forme conditionnelle contenant plusieurs mots
2
Réponses
16
Affichages
504
jo657
J
  • Résolu(e)
XL pour MAC Mise en forme d'un TCD
Réponses
9
Affichages
127
pilou010
  • Question Question
XL 2013 La cellule change de valeur à chaque page d'impression
Réponses
9
Affichages
219
Phil69970
M
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur feuille entière
2
Réponses
24
Affichages
382
sylvanu
D
  • Question Question
XL 2021 prise de rdv en ligne transporteur
Réponses
0
Affichages
118
dirty_harry_8
D
O
  • Question Question
XL 2010 Boucle sur tout le classeur - Mise en page et impression
Réponses
3
Affichages
366
Olivier1978
O
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
87
sylvanu
  • Résolu(e)
XL 2016 VBA - Comment ré-ouvrir un classeur en ReadOnly ?
Réponses
3
Affichages
118
Dudu2
  • Résolu(e)
XL 2010 Saut de page et cellules fusionnées
Réponses
10
Affichages
439
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…