Interdire onglets de classeur

Philippe.R

11/01/2004 à 13:15

Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à l'autre, j'ai
créé des boutons macros. Je souhaite que l'utilisateur ne passe pas par
Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

Alpha

11/01/2004 à 13:24

Merci Philippe, désolé, cela ne fonctionne pas
Alpha

"Philippe.R" a écrit dans le message de
news:

Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à l'autre,
j'ai

créé des boutons macros. Je souhaite que l'utilisateur ne passe pas par
Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

Philippe.R

11/01/2004 à 14:13

Re,
Comme évoqué plus tôt, on n'est jamais assez précis !
Ce qui se produit avec ce code, c'est que si ton utilisateur tente d'afficher à nouveau les onglets,
ceux ci disparaissent aussitôt.
Essaye ainsi pour voir, en choisissant dans quels modules de feuilles tu le colle.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de news:%

Merci Philippe, désolé, cela ne fonctionne pas
Alpha

"Philippe.R" a écrit dans le message de
news:
Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à l'autre,
j'ai

créé des boutons macros. Je souhaite que l'utilisateur ne passe pas par
Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

isabelle

11/01/2004 à 14:25

bonjour Philippe,

ça ne fonctionne pas puisqu'il n'y a pas d'événement
Worksheet_SelectionChange lorsque l'on sélectionne menu, Outils..... je
crois bien que la seule solution est de mettre le menu Option Enabled False à l'ouverture du classeur.

isabelle

Re,
Comme évoqué plus tôt, on n'est jamais assez précis !
Ce qui se produit avec ce code, c'est que si ton utilisateur tente d'afficher à nouveau les onglets,
ceux ci disparaissent aussitôt.
Essaye ainsi pour voir, en choisissant dans quels modules de feuilles tu le colle.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de news:%
Merci Philippe, désolé, cela ne fonctionne pas
Alpha

"Philippe.R" a écrit dans le message de
news:
Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à l'autre,
j'ai

créé des boutons macros. Je souhaite que l'utilisateur ne passe pas par
Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

Alpha

11/01/2004 à 14:33

Bonjour Isabelle, j'ai mis dans le WorkbookOpen
Option Enabled = false,
mais apparement ce n'est pas la bonne syntaxe
Alpha

"isabelle" a écrit dans le message de
news:

bonjour Philippe,

ça ne fonctionne pas puisqu'il n'y a pas d'événement
Worksheet_SelectionChange lorsque l'on sélectionne menu, Outils..... je
crois bien que la seule solution est de mettre le menu Option Enabled > False à l'ouverture du classeur.

isabelle

Re,
Comme évoqué plus tôt, on n'est jamais assez précis !
Ce qui se produit avec ce code, c'est que si ton utilisateur tente
d'afficher à nouveau les onglets,

ceux ci disparaissent aussitôt.
Essaye ainsi pour voir, en choisissant dans quels modules de feuilles tu
le colle.

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:%

Merci Philippe, désolé, cela ne fonctionne pas
Alpha

"Philippe.R" a écrit dans le message de
news:
Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à
l'autre,

j'ai
créé des boutons macros. Je souhaite que l'utilisateur ne passe
pas par

Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

Alpha

11/01/2004 à 14:34

Merci Philippe, en fait même s'il ne les voit pas, il peut cliquer dessus et
aller sur la page.
Alpha

"Philippe.R" a écrit dans le message de
news:

Re,
Comme évoqué plus tôt, on n'est jamais assez précis !
Ce qui se produit avec ce code, c'est que si ton utilisateur tente
d'afficher à nouveau les onglets,

ceux ci disparaissent aussitôt.
Essaye ainsi pour voir, en choisissant dans quels modules de feuilles tu
le colle.

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:%

Merci Philippe, désolé, cela ne fonctionne pas
Alpha

"Philippe.R" a écrit dans le message de
news:
Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à
l'autre,

j'ai
créé des boutons macros. Je souhaite que l'utilisateur ne passe pas
par

Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

Philippe.R

11/01/2004 à 14:39

Bonjour Isabelle,
Je conviens que ma réponse est légèrement décalée par rapport à la demande ; cependant, chez moi, si
dans le module d'une feuille quelconque de mon classeur (Excel 2002), je colle le code publié, après
qu'on ait rétabli l'affichage des onglets, le premier changement de sélection provoque immédiatement la
disparition des onglets.
Avec ça dans le code de chaque feuille, ça deviens vite lassant de tenter d'afficher les onglets.
;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"isabelle" a écrit dans le message de
news:

bonjour Philippe,

ça ne fonctionne pas puisqu'il n'y a pas d'événement
Worksheet_SelectionChange lorsque l'on sélectionne menu, Outils..... je
crois bien que la seule solution est de mettre le menu Option Enabled > False à l'ouverture du classeur.

isabelle

"Philippe.R" a écrit dans le message de
news:
Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à l'autre,
j'ai

créé des boutons macros. Je souhaite que l'utilisateur ne passe pas par
Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

isabelle

11/01/2004 à 14:47

bonjour Alpha,

voici la syntaxe,

Private Sub Workbook_Open()
For Each c In Application.CommandBars("Tools").Controls
If c.Caption = "&Options..." Then c.Enabled = False
Next
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each c In Application.CommandBars("Tools").Controls
If c.Caption = "&Options..." Then c.Enabled = True
Next
End Sub

isabelle

Merci Philippe, en fait même s'il ne les voit pas, il peut cliquer dessus et
aller sur la page.
Alpha

"Philippe.R" a écrit dans le message de
news:
Re,
Comme évoqué plus tôt, on n'est jamais assez précis !
Ce qui se produit avec ce code, c'est que si ton utilisateur tente
d'afficher à nouveau les onglets,

ceux ci disparaissent aussitôt.
Essaye ainsi pour voir, en choisissant dans quels modules de feuilles tu
le colle.

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:%

Merci Philippe, désolé, cela ne fonctionne pas
Alpha

"Philippe.R" a écrit dans le message de
news:
Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à
l'autre,

j'ai
créé des boutons macros. Je souhaite que l'utilisateur ne passe pas
par

Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

Alpha

11/01/2004 à 14:50

Merci Philippe, effectivement cela peut gêner un utilisateur, mais après dès
qu'il a compris le truc, il ne va pas se gêner :-)
Alpha

"Philippe.R" a écrit dans le message de
news:

Bonjour Isabelle,
Je conviens que ma réponse est légèrement décalée par rapport à la demande
; cependant, chez moi, si

dans le module d'une feuille quelconque de mon classeur (Excel 2002), je
colle le code publié, après

qu'on ait rétabli l'affichage des onglets, le premier changement de
sélection provoque immédiatement la

disparition des onglets.
Avec ça dans le code de chaque feuille, ça deviens vite lassant de tenter
d'afficher les onglets.

;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"isabelle" a écrit dans le message de
news:
bonjour Philippe,

ça ne fonctionne pas puisqu'il n'y a pas d'événement
Worksheet_SelectionChange lorsque l'on sélectionne menu, Outils..... je
crois bien que la seule solution est de mettre le menu Option Enabled > > False à l'ouverture du classeur.

isabelle

"Philippe.R" a écrit dans le message de
news:
Bonjour Alpha,
Dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.DisplayWorkbookTabs = False
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de
news:O9cL%

Bonjour,
j'ai créé un fichier, dans celui-ci pour aller d'une feuille à
l'autre,

j'ai
créé des boutons macros. Je souhaite que l'utilisateur ne passe
pas par

Outils option puis coche "onglets de classeur".
Merci beaucoup
Alpha

isabelle

11/01/2004 à 14:50

bonjour Philippe,

Avec ça dans le code de chaque feuille, ça deviens vite lassant de tenter d'afficher les onglets.

ho oui j'en conviens ;-)

isabelle

Interdire onglets de classeur

10 réponses

Veuillez sélectionner un problème