Je travaille sur un fichier partag=E9 sur lequel j'ai la ma=EEtrise propri=
=E9taire.
Je param=E8tre en mise en page pour impression de r=E9p=E9ter sur chaque im=
pression $1:$9
Mon probl=E8me : des coll=E8gues vont constamment se m=EAler de la mise en =
page (alors qu'ils n'ont rien =E0 y faire et aucune impression =E0 faire, j=
e suis seul =E0 imprimer les documents =E9manants de mon fichier) et je sou=
haiterai pouvoir bloquer d=E9finitivement deux choses qui ont le don d'agac=
er quand on doit les reparam=E9trer en permanence (nous sommes une 50=E8ne =
=E0 renseigner le fichier Excel en question et difficile de rappeler =E0 l'=
ordre tout le monde pour un ou deux coll=E8gues ind=E9licats).
Comment dois-je faire pour :
1=B0 Emp=EAcher tout le monde sauf moi de masquer des lignes ?
2=B0 Emp=EAcher tout le monde sauf moi de modifier la mise en page et les l=
ignes =E0 r=E9p=E9ter sur chaque page imprim=E9e ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonjour,
1- Enleve le mode partagé 2-Format de cellules Déverouille toutes les Cellules où les autres ont le droit de saisir 3-Supposons qu'il s'agisse de la feuille de CodeName Feuil3 dont tu veux le s titres 1:9 Mets le code cité plus bas dans le thisworkbook 4-Protège la feuille voulue 5-Remets le mode partagé
'Ce code dans le thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet If .CodeName = "Feuil3" Then 'a adapter à la feuille voulue With .PageSetup .PrintTitleRows = "$1:$9" .PrintTitleColumns = "" End With End If End With End Sub
'LSteph
Le lundi 22 juillet 2013 13:15:09 UTC+2, Mathieu a écrit :
Bonjour,
Je travaille sur un fichier partagé sur lequel j'ai la maîtrise propr iétaire.
Je paramètre en mise en page pour impression de répéter sur chaque impression $1:$9
Mon problème : des collègues vont constamment se mêler de la mise e n page (alors qu'ils n'ont rien à y faire et aucune impression à faire, je suis seul à imprimer les documents émanants de mon fichier) et je s ouhaiterai pouvoir bloquer définitivement deux choses qui ont le don d'ag acer quand on doit les reparamétrer en permanence (nous sommes une 50èn e à renseigner le fichier Excel en question et difficile de rappeler à l'ordre tout le monde pour un ou deux collègues indélicats).
Comment dois-je faire pour :
1° Empêcher tout le monde sauf moi de masquer des lignes ?
2° Empêcher tout le monde sauf moi de modifier la mise en page et les lignes à répéter sur chaque page imprimée ?
Avec tous mes remerciements par avance,
Mathieu
Bonjour,
1- Enleve le mode partagé
2-Format de cellules Déverouille toutes les Cellules où les autres ont le droit de saisir
3-Supposons qu'il s'agisse de la feuille de CodeName Feuil3 dont tu veux le s titres 1:9 Mets le code cité plus bas dans le thisworkbook
4-Protège la feuille voulue
5-Remets le mode partagé
'Ce code dans le thisworkbook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
If .CodeName = "Feuil3" Then 'a adapter à la feuille voulue
With .PageSetup
.PrintTitleRows = "$1:$9"
.PrintTitleColumns = ""
End With
End If
End With
End Sub
'LSteph
Le lundi 22 juillet 2013 13:15:09 UTC+2, Mathieu a écrit :
Bonjour,
Je travaille sur un fichier partagé sur lequel j'ai la maîtrise propr iétaire.
Je paramètre en mise en page pour impression de répéter sur chaque impression $1:$9
Mon problème : des collègues vont constamment se mêler de la mise e n page (alors qu'ils n'ont rien à y faire et aucune impression à faire, je suis seul à imprimer les documents émanants de mon fichier) et je s ouhaiterai pouvoir bloquer définitivement deux choses qui ont le don d'ag acer quand on doit les reparamétrer en permanence (nous sommes une 50èn e à renseigner le fichier Excel en question et difficile de rappeler à l'ordre tout le monde pour un ou deux collègues indélicats).
Comment dois-je faire pour :
1° Empêcher tout le monde sauf moi de masquer des lignes ?
2° Empêcher tout le monde sauf moi de modifier la mise en page et les lignes à répéter sur chaque page imprimée ?
1- Enleve le mode partagé 2-Format de cellules Déverouille toutes les Cellules où les autres ont le droit de saisir 3-Supposons qu'il s'agisse de la feuille de CodeName Feuil3 dont tu veux le s titres 1:9 Mets le code cité plus bas dans le thisworkbook 4-Protège la feuille voulue 5-Remets le mode partagé
'Ce code dans le thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet If .CodeName = "Feuil3" Then 'a adapter à la feuille voulue With .PageSetup .PrintTitleRows = "$1:$9" .PrintTitleColumns = "" End With End If End With End Sub
'LSteph
Le lundi 22 juillet 2013 13:15:09 UTC+2, Mathieu a écrit :
Bonjour,
Je travaille sur un fichier partagé sur lequel j'ai la maîtrise propr iétaire.
Je paramètre en mise en page pour impression de répéter sur chaque impression $1:$9
Mon problème : des collègues vont constamment se mêler de la mise e n page (alors qu'ils n'ont rien à y faire et aucune impression à faire, je suis seul à imprimer les documents émanants de mon fichier) et je s ouhaiterai pouvoir bloquer définitivement deux choses qui ont le don d'ag acer quand on doit les reparamétrer en permanence (nous sommes une 50èn e à renseigner le fichier Excel en question et difficile de rappeler à l'ordre tout le monde pour un ou deux collègues indélicats).
Comment dois-je faire pour :
1° Empêcher tout le monde sauf moi de masquer des lignes ?
2° Empêcher tout le monde sauf moi de modifier la mise en page et les lignes à répéter sur chaque page imprimée ?
Comment ajouter les autres noms d'onglets dans la procédure workbook ? après :
if .CodeName ="Feuil3"
Merci de ta réponse, Mathieu
Bonjour,
A défaut de LSteph que je salue au passage.
S'il n'y a pas d'autres restrictions sur les feuilles,
tu peux supprimer la ligne if.... et le endif correspondant.
--
Salutations
JJ
"Mathieu" <christophe.lenoire@gmail.com> a écrit dans le message de news:
eb01940f-2ca8-40de-944f-d7dc5182a86d@googlegroups.com...
Bonjour et merci LSteph !!
Concernant le même fichier partagé et possédant 6 onglets, pourriez-v ous me dire comment bloquer la possibilité d'agrandir ou rétrécir les colonnes ?
Avec tous mes remerciements anticipés, Mathieu
MichD
Bonjour,
Il n'existe pas une option dans Excel qui te permet de bloquer l'élargissement des colonnes. Cependant, on peut rendre la tâche difficile aux petits malins...
Voici un fichier exemple http://cjoint.com/?CJypZFmjEXD Le code est dans le ThisWorkbook du projetVBA du fichier.
Essaie de changer et de conserver des largeurs de colonnes différentes de celles déjà existantes dans la feuil1 et 2. La feuil3 n'est pas touchée par le programme ce qui te permet de modifier les largeurs de colonnes à volonté.
J'ai pris pour acquis que le fichier ne comportait pas d'objets comme (graphes) textbox... si oui, il faudra adapter quelque peu, car dans le code j'utilise l'objet "Selection" qui désigne l'objet (plage de cellules, graphe....etc.) sélectionné dans la feuille active. Le petit programme risque de ne pas aimer cela. ;-))
Il n'existe pas une option dans Excel qui te permet de bloquer
l'élargissement des colonnes. Cependant, on peut rendre la
tâche difficile aux petits malins...
Voici un fichier exemple http://cjoint.com/?CJypZFmjEXD
Le code est dans le ThisWorkbook du projetVBA du fichier.
Essaie de changer et de conserver des largeurs de colonnes différentes
de celles déjà existantes dans la feuil1 et 2. La feuil3 n'est pas touchée
par le programme ce qui te permet de modifier les largeurs de colonnes
à volonté.
J'ai pris pour acquis que le fichier ne comportait pas d'objets comme
(graphes)
textbox... si oui, il faudra adapter quelque peu, car dans le code j'utilise
l'objet
"Selection" qui désigne l'objet (plage de cellules, graphe....etc.)
sélectionné dans
la feuille active. Le petit programme risque de ne pas aimer cela. ;-))
Il n'existe pas une option dans Excel qui te permet de bloquer l'élargissement des colonnes. Cependant, on peut rendre la tâche difficile aux petits malins...
Voici un fichier exemple http://cjoint.com/?CJypZFmjEXD Le code est dans le ThisWorkbook du projetVBA du fichier.
Essaie de changer et de conserver des largeurs de colonnes différentes de celles déjà existantes dans la feuil1 et 2. La feuil3 n'est pas touchée par le programme ce qui te permet de modifier les largeurs de colonnes à volonté.
J'ai pris pour acquis que le fichier ne comportait pas d'objets comme (graphes) textbox... si oui, il faudra adapter quelque peu, car dans le code j'utilise l'objet "Selection" qui désigne l'objet (plage de cellules, graphe....etc.) sélectionné dans la feuille active. Le petit programme risque de ne pas aimer cela. ;-))
Sur cette ligne de code : For Each Col In Rg.Columns J'ai omis le Rg dans Rg.columns
Tu dois corriger! Les risques du copier-coller! ;-))
'------------------------------------------ Private Sub Workbook_Deactivate()
Dim A As Long If Not Rg Is Nothing Then For Each Col In Rg.Columns '<<<====== A = A + 1 Col.ColumnWidth = T(A) Next End If Set Rg = Nothing
End Sub '-------------------------------------------
MichD --------------------------------------------------------------- "MichD" a écrit dans le message de groupe de discussion : l4b92a$46m$
Bonjour,
Il n'existe pas une option dans Excel qui te permet de bloquer l'élargissement des colonnes. Cependant, on peut rendre la tâche difficile aux petits malins...
Voici un fichier exemple http://cjoint.com/?CJypZFmjEXD Le code est dans le ThisWorkbook du projetVBA du fichier.
Essaie de changer et de conserver des largeurs de colonnes différentes de celles déjà existantes dans la feuil1 et 2. La feuil3 n'est pas touchée par le programme ce qui te permet de modifier les largeurs de colonnes à volonté.
J'ai pris pour acquis que le fichier ne comportait pas d'objets comme (graphes) textbox... si oui, il faudra adapter quelque peu, car dans le code j'utilise l'objet "Selection" qui désigne l'objet (plage de cellules, graphe....etc.) sélectionné dans la feuille active. Le petit programme risque de ne pas aimer cela. ;-))
Sur cette ligne de code : For Each Col In Rg.Columns
J'ai omis le Rg dans Rg.columns
Tu dois corriger! Les risques du copier-coller! ;-))
'------------------------------------------
Private Sub Workbook_Deactivate()
Dim A As Long
If Not Rg Is Nothing Then
For Each Col In Rg.Columns '<<<====== A = A + 1
Col.ColumnWidth = T(A)
Next
End If
Set Rg = Nothing
End Sub
'-------------------------------------------
MichD
---------------------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
l4b92a$46m$1@speranza.aioe.org...
Bonjour,
Il n'existe pas une option dans Excel qui te permet de bloquer
l'élargissement des colonnes. Cependant, on peut rendre la
tâche difficile aux petits malins...
Voici un fichier exemple http://cjoint.com/?CJypZFmjEXD
Le code est dans le ThisWorkbook du projetVBA du fichier.
Essaie de changer et de conserver des largeurs de colonnes différentes
de celles déjà existantes dans la feuil1 et 2. La feuil3 n'est pas touchée
par le programme ce qui te permet de modifier les largeurs de colonnes
à volonté.
J'ai pris pour acquis que le fichier ne comportait pas d'objets comme
(graphes)
textbox... si oui, il faudra adapter quelque peu, car dans le code j'utilise
l'objet
"Selection" qui désigne l'objet (plage de cellules, graphe....etc.)
sélectionné dans
la feuille active. Le petit programme risque de ne pas aimer cela. ;-))
Sur cette ligne de code : For Each Col In Rg.Columns J'ai omis le Rg dans Rg.columns
Tu dois corriger! Les risques du copier-coller! ;-))
'------------------------------------------ Private Sub Workbook_Deactivate()
Dim A As Long If Not Rg Is Nothing Then For Each Col In Rg.Columns '<<<====== A = A + 1 Col.ColumnWidth = T(A) Next End If Set Rg = Nothing
End Sub '-------------------------------------------
MichD --------------------------------------------------------------- "MichD" a écrit dans le message de groupe de discussion : l4b92a$46m$
Bonjour,
Il n'existe pas une option dans Excel qui te permet de bloquer l'élargissement des colonnes. Cependant, on peut rendre la tâche difficile aux petits malins...
Voici un fichier exemple http://cjoint.com/?CJypZFmjEXD Le code est dans le ThisWorkbook du projetVBA du fichier.
Essaie de changer et de conserver des largeurs de colonnes différentes de celles déjà existantes dans la feuil1 et 2. La feuil3 n'est pas touchée par le programme ce qui te permet de modifier les largeurs de colonnes à volonté.
J'ai pris pour acquis que le fichier ne comportait pas d'objets comme (graphes) textbox... si oui, il faudra adapter quelque peu, car dans le code j'utilise l'objet "Selection" qui désigne l'objet (plage de cellules, graphe....etc.) sélectionné dans la feuille active. Le petit programme risque de ne pas aimer cela. ;-))
