Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Interdire onglets de classeur

Interdire onglets de classeur

23 réponses
Avatar
Alpha
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
Alpha
Merci beaucoup Isabelle
Alpha

"isabelle" a écrit dans le message de
news:
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




















Avatar
Philippe.R
Re Alpha,
Si je comprends ton attente, une solution pourrait alors être de faire prendre à la propriété Visible de
la feuille la valeur veryhidden lorsqu'on la quitte et de la rendre visible uniquement au lancement de
ta macro, en masquant l'onglet par la même occasion

Dans le module de feuil1 :

Private Sub Worksheet_Deactivate()
Sheets("feuil1").Visible = xlVeryHidden
End Sub

dans un module ordinaire :

Sub laffichepasmal()
Sheets("feuil1").Visible = True
Sheets("feuil1").Activate
ActiveWindow.DisplayWorkbookTabs = False
MsgBox "Alors ?", , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de news:
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




















Avatar
isabelle
un poil plus court :

Private Sub Workbook_Open()
Application.CommandBars("Tools").Controls("&Options...").Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tools").Controls("&Options...").Enabled = True
End Sub

isabelle


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




















Avatar
Alpha
Mais il y a du génie dans cette proc ;-)
encore merci pour ta patience,
Alpha

"Philippe.R" a écrit dans le message de
news:%234%
Re Alpha,
Si je comprends ton attente, une solution pourrait alors être de faire
prendre à la propriété Visible de

la feuille la valeur veryhidden lorsqu'on la quitte et de la rendre
visible uniquement au lancement de

ta macro, en masquant l'onglet par la même occasion

Dans le module de feuil1 :

Private Sub Worksheet_Deactivate()
Sheets("feuil1").Visible = xlVeryHidden
End Sub

dans un module ordinaire :

Sub laffichepasmal()
Sheets("feuil1").Visible = True
Sheets("feuil1").Activate
ActiveWindow.DisplayWorkbookTabs = False
MsgBox "Alors ?", , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

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
























Avatar
Alpha
Ok thanks a lot Isabelle
Alpha

"isabelle" a écrit dans le message de
news:
un poil plus court :

Private Sub Workbook_Open()
Application.CommandBars("Tools").Controls("&Options...").Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Tools").Controls("&Options...").Enabled = True
End Sub

isabelle


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






















Avatar
Philippe.R
C'est avec plaisir ;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de news:
Mais il y a du génie dans cette proc ;-)
encore merci pour ta patience,
Alpha

"Philippe.R" a écrit dans le message de
news:%234%
Re Alpha,
Si je comprends ton attente, une solution pourrait alors être de faire
prendre à la propriété Visible de

la feuille la valeur veryhidden lorsqu'on la quitte et de la rendre
visible uniquement au lancement de

ta macro, en masquant l'onglet par la même occasion

Dans le module de feuil1 :

Private Sub Worksheet_Deactivate()
Sheets("feuil1").Visible = xlVeryHidden
End Sub

dans un module ordinaire :

Sub laffichepasmal()
Sheets("feuil1").Visible = True
Sheets("feuil1").Activate
ActiveWindow.DisplayWorkbookTabs = False
MsgBox "Alors ?", , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

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




























Avatar
Alpha
Merci mille fois Philippe une p'tite dernière si tu le permet ?
Connais-tu la syntaxe afin de masquer le bouton Outils ?
Alpha

"Philippe.R" a écrit dans le message de
news:
C'est avec plaisir ;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

Mais il y a du génie dans cette proc ;-)
encore merci pour ta patience,
Alpha

"Philippe.R" a écrit dans le message de
news:%234%
Re Alpha,
Si je comprends ton attente, une solution pourrait alors être de faire
prendre à la propriété Visible de

la feuille la valeur veryhidden lorsqu'on la quitte et de la rendre
visible uniquement au lancement de

ta macro, en masquant l'onglet par la même occasion

Dans le module de feuil1 :

Private Sub Worksheet_Deactivate()
Sheets("feuil1").Visible = xlVeryHidden
End Sub

dans un module ordinaire :

Sub laffichepasmal()
Sheets("feuil1").Visible = True
Sheets("feuil1").Activate
ActiveWindow.DisplayWorkbookTabs = False
MsgBox "Alors ?", , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

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
































Avatar
Philippe.R
Re,
Une sub pour désactiver, une autre pour réactiver :

Sub cachemenu()
Application.CommandBars(1).Controls(6).Enabled = False
End Sub

Sub affichemenu()
Application.CommandBars(1).Controls(6).Enabled = True
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Alpha" a écrit dans le message de news:%
Merci mille fois Philippe une p'tite dernière si tu le permet ?
Connais-tu la syntaxe afin de masquer le bouton Outils ?
Alpha

"Philippe.R" a écrit dans le message de
news:
C'est avec plaisir ;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

Mais il y a du génie dans cette proc ;-)
encore merci pour ta patience,
Alpha

"Philippe.R" a écrit dans le message de
news:%234%
Re Alpha,
Si je comprends ton attente, une solution pourrait alors être de faire
prendre à la propriété Visible de

la feuille la valeur veryhidden lorsqu'on la quitte et de la rendre
visible uniquement au lancement de

ta macro, en masquant l'onglet par la même occasion

Dans le module de feuil1 :

Private Sub Worksheet_Deactivate()
Sheets("feuil1").Visible = xlVeryHidden
End Sub

dans un module ordinaire :

Sub laffichepasmal()
Sheets("feuil1").Visible = True
Sheets("feuil1").Activate
ActiveWindow.DisplayWorkbookTabs = False
MsgBox "Alors ?", , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

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




































Avatar
Alpha
Rien à dire c'est parfait, encore merci.
Alpha

"Philippe.R" a écrit dans le message de
news:O$
Re,
Une sub pour désactiver, une autre pour réactiver :

Sub cachemenu()
Application.CommandBars(1).Controls(6).Enabled = False
End Sub

Sub affichemenu()
Application.CommandBars(1).Controls(6).Enabled = True
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

Merci mille fois Philippe une p'tite dernière si tu le permet ?
Connais-tu la syntaxe afin de masquer le bouton Outils ?
Alpha

"Philippe.R" a écrit dans le message de
news:
C'est avec plaisir ;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

Mais il y a du génie dans cette proc ;-)
encore merci pour ta patience,
Alpha

"Philippe.R" a écrit dans le message de
news:%234%
Re Alpha,
Si je comprends ton attente, une solution pourrait alors être de
faire





prendre à la propriété Visible de
la feuille la valeur veryhidden lorsqu'on la quitte et de la
rendre





visible uniquement au lancement de
ta macro, en masquant l'onglet par la même occasion

Dans le module de feuil1 :

Private Sub Worksheet_Deactivate()
Sheets("feuil1").Visible = xlVeryHidden
End Sub

dans un module ordinaire :

Sub laffichepasmal()
Sheets("feuil1").Visible = True
Sheets("feuil1").Activate
ActiveWindow.DisplayWorkbookTabs = False
MsgBox "Alors ?", , "M.P.F.E."
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

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

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








































Avatar
Clément Marcotte
Bonjour,

Mais il y a du génie dans cette proc ;-)


Reste juste à attendre la réaction de JPS quand il aura lu cela. ;-)

1 2 3