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

3 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
sabatier
le poids des mots...
pour le choc des photos, je vous renvoie au calendrier du mpfe...
jps

Alpha a écrit:
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
sabatier
fait, Votre Sainteté, je dirais même plus : fait par la Sainte Obéissance...
jps

Clément Marcotte a écrit:
Bonjour,


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



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




Avatar
Philippe.R
<{;'o)=))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"sabatier" a écrit dans le message de news:
le poids des mots...
pour le choc des photos, je vous renvoie au calendrier du mpfe...
jps

Alpha a écrit:
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



























1 2 3