empecher affichage onglets excel VBA Résolu

Question

Bonjour,

Avec les codes ci-dessous, j'affiche et masque les onglets de mon fichier
Sub Option_masquer_onglet()
 Option_cacher_onglet Macro
    Sheets("Menu").Select
    ActiveWindow.DisplayWorkbookTabs = False
End Sub
Sub Option_afficher_onglet()
    Sheets("Menu").Select
    ActiveWindow.DisplayWorkbookTabs = True
End Sub

Je voudrais en fait, empêcher les utilisateurs de faire apparaître les onglets via "OptionExcel". la navigation se fait via la feuille "Menu" par boutons. Il est possible que l'utilisateur fasse cette action en étant sur n'importe quelles feuilles, à la fin de sa manipulation il faudrait que les onglets se masquent et que la feuille "Menu" s'active; c'est ce que fait la 1ère macro. Je pense que je dois mettre du code dans Thisworkbook, mais quoi au juste.

Je vous remercie.

Bonne soirée!

cs_Le Pivert · Accepted Answer

MPi t'as donné la solution:

Private Sub Workbook_Open()
 Dim feuille As Variant
Application.ScreenUpdating = False
    For Each feuille In Worksheets
       If feuille.Name <> "Menu" Then
       Sheets("Menu").Activate
       feuille.Visible = xlVeryHidden
End If
    Next
Application.ScreenUpdating = True
End Sub

Un problème subsiste: naviguer dans les feuille. Pour cela il faut rendre la feuille visible comme ceci:

Private Sub CommandButton1_Click()
Sheets("Feuil1").Visible = True '(à adapter)
Sheets("Feuil1").Select
End Sub


Et pour revenir au Menu cacher la feuille. Donc dans la feuille1 (à adapter):

Private Sub CommandButton1_Click()
Sheets("Feuil1").Visible = False
Sheets("Menu").Select
End Sub


Voilà!!!!!!!!
@+ Le Pivert

jordane45 · Answer

bonjour.
il suffirait de proteger le classeur (pas le contenu, juste la structure)

Cordialement,
Jordane
_____________________________________________________
Règles du forum à lire avant de poster une question : ICI

scribetout · Answer

Bonsoir Jordane45,

je te remercie mais ta solution ne donne pas satisfaction.
Voilà ce que j'ai fait: Revision -->Protéger le classeur--> Protéger la structure et les fenêtres --> monpass.

Mais quand je vais dans option excel et coche la case afficher onglets ces derniers apparaissent et c'est ce que je veux éviter. Il faut qu'un onglet soit visible.

Merci quand même pour ta participation.

ucfoutu · Answer

Bonjour,
je ne sais pas vers quoi et pourquoi vous allez ainsi .
Je n'ai pas voulu intervenir car je sais par contre ce qu'il y a "derrière les décors" (l'autre discussion) et la stratégie choisie est assez "boiteuse".
Mais bon ...
On veut quoi ? faire en sorte d'empêcher la visualisation de la feuille "Menu" ?
on ne va alors pas s'embarrasser. Jouons bêtement et simplement à l'"empêcheur de tourner en rond"===>>
dans le module de la feuille "Menu" ===>> 
Private Sub Worksheet_Activate()
 ActiveSheet.Visible = False ' ou true lorsqu'on veut la montrer, selon l'utilisateur.
End Sub
Je vous laisse continuer.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

jordane45 · Answer

Sinon regardes là :
XlSheetHidden

Cordialement,
Jordane
_____________________________________________________
Règles du forum à lire avant de poster une question : ICI

scribetout · Answer

Bonjour Jordane45,

je te remercie pour ton lien, avide d'apprentissage je prends tout.
je te remercie beaucoup.

Bonne Journée!

scribetout · Answer

Bonjour,

je sais par contre ce qu'il y a "derrière les décors" (l'autre discussion) et la stratégie choisie est assez "boiteuse".

Monsieur Ucfoutu, je ne comprends vraiment pas ce que vous insinuez. Il n'y a ni décors ni stratégie. Je suis un amateur débutant en VBA, mais bon...

Depuis ma prime jeunesse, on m'a inculqué qu'une question bête n'existait pas.  Vous avez le droit de rire derrière votre écran de nos questions "bêtes", mais respectez un peu notre ignorance de votre domaine.

je préfère qu'on ignore mes discussions que de recevoir des messages stériles de contenu. Du genre: as-tu consulté au moins l'aide? et j'en passe. Je vous assure que j'en ai lu des discussions.

Je consulte votre forum depuis de long date et ne me suis inscrit que depuis peu. Car je travaillais et n'avais pas beaucoup de temps.

Je ne sais ce qu'il en est pour les autres, mais personnellement c'est quand je sèche vraiment que je fais appel à une aide.

Je sais que mes codes ne sont pas "orthodoxes", mais m'en contente car ils donnent les résultats attendus. Très souvent, je récupère des codes sur le net et essaie de le adapter à mes besoins (pratique que les intervenants de ce forum tiennent en horreurs), ou bien j'utilise l'enregistreur de macros pour trouver une solution, analyser le code et le simplifier. Je pense que la débrouillardise n'est pas proscrite pour pondre un bout de code pour se faire plaisir.

Nous les amateurs, dés qu'on parvient à faire un petit quelque chose, on est super heureux. Enfin, c'est mon cas. Enfantin, n'est-ce pas? Mais c'est comme ça.

Vous pensez peut-être que je suis susceptible. Loin de là, tout simplement ça m'irrite qu'on m'envoie paître après avoir passé des heures, des journées et nuits blanches de recherches infructueuses. Et, qu'on vienne me dire: as-tu fait ceci, cela... Qu'on ait pas compris mes attentes OK! Mais qu'on ne se moque pas de ceux qui ne connaissent pas.

Bien souvent, je pense que ces gens qui connaissent, sont prétentieux et avare de leur savoir. Vu mon âge, je sais que lorsque, je partirai je n'emporterai rien avec moi, ni bien ni savoir.

Quoiqu'il en soit, je vous remercie. je pense que je suis trompé d'adresse et m'en vais rejoindre les forums amateurs.

Je rends un hommage à Jacques Boisgontier pour son fabuleux travail. Je me suis inspiré de ses fichiers et ses codes pour réaliser tous les formulaires.
Tapez le texte de l'url ici. 

sans préjugés et sans rancunes.

Cordialement,

Scribetout

ucfoutu · Answer

Comme tu voudras.
Quand je parlais de ce qu'il y avait "derrière les décors", je voulais dire (et c'était pour moi clair) que je savais (à travers l'autre discussion) pourquoi on cherchait à cacher une feuille.
Il se trouve que cela ne servira à rien (voilà la raison de l'expression "stratégie assez boiteuse") et sera rapidement contourné par le premier petit malin venu qui voudra (et pourra donc) découvrir (puisque en clair) le mot de passe concernant un utilisateur. 
Pour parvenir à une stratégie "solide", c'était toute un ensemble qu'il fallait "construire". Et pour construire cet ensemble, il fallait y aller par étape, comprendre chaque étape, puis assembler le tout (toutes les étapes) en fonction des besoins de l'appli.
Un autre chemin que ce pas à pas a été choisi =>> je me suis donc retiré.
Mais bon ...
Je veux bien aider, mais je n'aident que ceux qui veulent bien commencer par s'aider eux-mêmes. Et oui : je les invite bien évidemment, chaque fois que l'aide VBA est claire, à la lire d'abord !
Bonne chance


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

scribetout · Answer

Bonjour,

Comme nous disait, il y a de cela des années, notre prof de mathématiques appliquées: "mon père est nul en bricolage, il n'est même foutu de planter un clou." On avait bien rigolé et a continué par:" mais ça ne l'a pas empêché d'être Docteur en physique nucléaire."

On est donc tous différents, à chacun son expérience pour trouver la bonne stratégie. à chacun son niveau de raisonnement et de compréhension. Les lumières ça existe, les nuls aussi. J'étais à côté de la plaque, j'en prends note.

Quand je parlais de ce qu'il y avait "derrière les décors", je voulais dire (et c'était pour moi clair) que je savais (à travers l'autre discussion) pourquoi on cherchait à cacher une feuille. 
En fait, ce n'est pas une seule feuille que je veux masquer mais ne laisser qu'une seule visible sur laquelle se trouvent les 9 boutons (3 niveaux, pour chaque niveau 3 boutons). Je voulais trouver une astuce, pour qu'aucun petit malin ne puisse afficher les onglets en passant par les options avancées d'Excel. 

Merci.

Bon Dimanche!

ucfoutu · Answer

Je voulais trouver une astuce, pour qu'aucun petit malin ne puisse afficher les onglets en passant par les options avancées d'Excel. 

Les protections simples ne permettent que de contrecarrer les tentatives des innocents, petits malins ou non !
Les autres (malins et avertis) sauront (s'il y a un intérêt à le faire) reconstituer totalement ton classeur. Si ce qui doit y rester inconnu d'eux y est en clair, ils le reconstitueront en clair également. Ces mêmes malins-là auront même fait un outil prêt à être utilisé pour tout classeur.
Voilà.
Si tu le permets, maintenant : je quitte totalement cette discussion qui a pour seul effet de me retarder pour ma pêche et mes travaux divers de bricolage (et même de petits exercices mathématiques). 
Bonne chance.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

scribetout · Answer

merci, bonne pêche.

jordane45 · Answer

:-)
pense a mettre le sujet en resolu.


Cordialement,
Jordane
_____________________________________________________
Règles du forum à lire avant de poster une question : ICI

scribetout · Answer

Désolé mais ce n'est encore résolu. Je cherche toujours une solution. Ceux qui ont quitté définitivement cette discussion sont libres et je ne leur tiens pas rigueur.

étant débutant, quand je cache n'importe quelle feuille de mon classeur mes codes bug. Donc, en passant pas les options d'excel, je décoche l'affichage des onglets et ça fonctionne bien. Je voudrais juste empêcher les utilisateurs à cocher cette case ou la décocher dés qu'on revient sur le fichier (retour sur la feuille "Menu") par code VBA.
sheets("Menu").activate 'ou 
sheets("Menu").select 

Au fait, comment faire pour mettre le sujet résolu. Merci de me l'avoir rappelé.

Cordialement,
Scribetout

jordane45 · Answer

j'ai regardé et il ne semble pas possible d'empecher le réaffichage des onglets.

quand je cache n'importe quelle feuille de mon classeur mes codes bug.
C'est normal !
Si une feuille est cachée, on ne peut pas lui demander de la selectionner....
Avant de faire un sheets("Menu").activate (ou select) il faut la rendre visible.

Pour en revenir aux onglets, tu pourrais ruser...
Tu modifie " l'apparence " de ton classeur (pas excel.. mais bien ton classeur)  en argrandissant suffisement celui ci pour que les onglets "sortent" de l'écran puis tu protège ton classeur, ca devrait le faire 





Cordialement,
Jordane
_____________________________________________________
Règles du forum à lire avant de poster une question : ICI

jordane45 · Answer

Enfin sinon Ucfoutu a raison..
Excel, niveau sécurité ne vaut rien !

Que ce soit la protection des feuilles/classeurs ou celle de l'éditeur de macro, il ne faut que quelques secondes pour les faire sauter aux personnes (avec quelques connaissances informatiques) sachant chercher un peu sur internet...

en même temps... 90% des personnes que j'ai pu croiser dans mon entreprise ou mes amis ne savent même pas faire une somme dans Excel autrement qu'avec des '+'... Mouarffff......  alors.. déprotéger un classeur... pfffff... ça leur prendra 10 ans... 





Cordialement,
Jordane
_____________________________________________________
Règles du forum à lire avant de poster une question : ICI

ucfoutu · Answer

Salut, jordane45
Même pas la peine de "déprotéger" ... 
Et si les données sensibles sont en clair, ma foi ...
Et si elles ne sont pas sensibles : personne ne cherchera à les connaître (hé oui !).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Mais j'ai "cassé" ma promesse de ne plus intervenir. Tant pis ===>> revenons à nos moutons === >> si l'on ne veut pas ( et qu'on s'en contente ) qu'une feuille puisse être affichée "de manière normale" hein ...(et rien d'autre que cela)  j'ai dit plus haut comment ... (mais uniquement de manière "normale", pas d'une autre manière bien plus vicieuse).
Allez ! Je vous laisse maintenant (sommeil).


________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Utilisateur anonyme · Answer

Bonjour,

Et puis avec les fichiers xlsx, n'importe qui peut les ouvrir et les utiliser avec à peu près n'importe quel programme et le SDK Openxml disponible sur le site de MS.

ucfoutu · Answer

Bonjour, cmarcotte,
Ben oui.
Et entre autres ...
Mais même pas la peine d'ouvrir avec Excel, d'ailleurs, pour y lire les données en clair. 



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Bon.
Mot mot du lundi matin :
J'ai, il y a une trentaine d'années, dû faire intervenir un haut responsable pour éviter l'énorme dépense que quelqu'un voulait engager pour mettre une porte blindée avec serrure de sécurité sur une cloison en .... Gyproc !
Lorsque je faisais remarquer qu'il suffisait de ne pas passer par la porte (un bon coup de pied dans la cloison suffisait) on me répondait que certes, mais que cela se verrait ensuite. Ah bon ? ===>> un simple compteur scellé d'ouverture d'une simple porte en contre-plaqué permettait la même constatation de "viol", non ? 
Il va de soi que le haut responsable a interdit cette dépense idiote.
Amitiés à tous.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

cs_Le Pivert · Answer

Bonjour,

Malgré tous les intervenants qui t'ont dit que cela ne servirait à rien, si tu veux le faire quand même voici un programme qui désactive Outils-Option pour l'utilisateur. Il te suffit de regarder ce programme et l'adapter afin de le mettre dans ThisWorbook

http://www.vbfrance.com/codes/COLLECTION-ID_54002.aspx

@+ Le Pivert

scribetout · Answer

Bonjour,

Je remercie tous ceux qui sont intervenus dans cette discussion. je vous rappelle que je suis débutant en VBA donc mes connaissances sont très limitées. N'étant plus en activité, je voulais concevoir un fichier et l'offrir gracieusement à mes anciens collègues. Car certains d'entre eux se faisaient flambées par leur chef, pour des erreurs de report (un bon millier) de valeurs. Donc, le fichier que je suis entrain de leur concevoir n'est une "forteresse". Comportant beaucoup de feuilles et de formules, j'ai décidais que la navigation, les saisies, consultations, graphiques et impressions ne se fassent que par Boutons et Formulaires. C'est pour leur éviter de faire de malencontreuses manipulations que j'ai eu cette idée d'empêcher l'activation de l'affichage des onglets, c'est peut-être une mauvaise idée.
(sur ancien fichier, l'un d'eux pour corriger une erreur à supprimer toutes les lignes d'une plage dynamique et à tout planter)

Je sais aussi qu'avec certains logiciels on peut "sauter" n'importe quelle protection et même avec code VBA. J'avais même lu quelque part qu'excel était une passoire. 

Les gens pour qui je suis entrain de concevoir ce fichier ne sont pas au courant de mon projet. Je n'ai donc aucune contrainte de temps et vous avoue que je suis plus entêté qu'une mule. Je ne ménagerai pas mes efforts, mais je trouverai car c'est réalisable... 

Messieurs, je vous remercie beaucoup.

* Si personne ne trouve autre chose à apporter à cette discussion, je vous prie de la considérer comme close.
__________________________________________________________________________
Impulsif mais pas du tout rancunier. Si vous n'apportez rien aux discussions, ignorez les. Rien ne vous oblige à y répondre. Merci

ucfoutu · Answer

Si personne ne trouve autre chose à apporter à cette discussion, je vous prie de la considérer comme close. 

Ben : 
- je t'ai donné plus haut de quoi empêcher (au seul niveau "normal" d'utilisation) la visualisation d'une feuille.
- la "forteresse" serait (pour éviter les malversations volontaires) de ne pas mettre en clair les données des feuilles concernées. Mais là, ce serait un autre sujet.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

scribetout · Answer

Cher Ucfoutu,

Merci d'être revenu. Je pense qu'il y eu des quiproquos entre nous, et m'en excuse si je suis en tort. Je ne suis qu'à mes début en VBA, par conséquent je ne cerne pas ou ne pose les problèmes comme vous les chevronnés repus au codage. Je fais appel donc à ta compréhension de mes grosses lacunes en la matière.

si j'ai bien compris ton code, il rend visible ou non une feuille active
Private Sub Worksheet_Activate()
 ActiveSheet.Visible = False ' ou true lorsqu'on veut la montrer, selon l'utilisateur.
End Sub
Dans ton commentaire tu as "selon l'utilisateur", mais ce n'est pas ça du tout (c'est quelque soit l'utilisateur). Je pense, que tu as fait le rapprochement des 2 discussions que j'ai ouvertes. Dans celle-ci, j'ai demandé que seule la feuille "Menu" soit visible et toutes les autres invisibles.

Le cas "selon utilisateur" était dans la 2ème discussion et les autorisations concernées l'affichage de différents formulaires. En reparlant de ce sujet, je pense que je vais changer de stratégie. Plus que les formulaires sont affichés par clic sur différents boutons de la feuille "Menu". Ils seront actifs ou inactifs selon l'authentification à l'ouverture du fichier. Celui-ci se fermera si l'utilisateur n'existe pas.
Qu'en penses-tu?

En te remerciant.

ucfoutu · Answer

Dans ton commentaire tu as "selon l'utilisateur", mais ce n'est pas ça du tout (c'est quelque soit l'utilisateur)

He bien === >> False toujours et pas de condition.
Mais dis-moi : comment vas-tu, ensuite, toi, pouvoir la mettre à jour ? 
En reparlant de ce sujet, je pense que je vais changer de stratégie. 
Oui. Mais réfléchis d'abord  longuement  à la stratégie elle-eême (travail beaucoup plus lent et délicat que celui du développement subséquent, comme toujours).
J'ai l'habitude de le dire et le répéter : 80 % du temps consacré à la conception (et ce n'est pas là du développement). Le reste (le code) n'est que récitation et ne doit venir qu'ensuite.
Prends donc ton temps.
________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

scribetout · Answer

Rebonjour, 

voici ce que je fais mais j'ai un petit souci, la feuille "Menu" est l'avant-dernière feuille de mon classeur. Mais quand j&#8217;exécute le code, la dernière feuille est toujours visible. Je pourrais déplacer la feuille "Menu" pour qu'elle soit la dernière mais je voudrais comprendre pourquoi?
Sub Masquer_feuilles()
Dim F As Integer
    Application.ScreenUpdating = False
    For F = 1 To Worksheets.Count
        If Sheets(F).Name <> "Menu" Then
        Sheets("Menu").Activate
        Sheets(F).Visible = False
    End If
    Next F
    Application.ScreenUpdating = True

End Sub

Merci à tous ceux qui donneront un coup de main.

scribetout · Answer

Le reste (le code) n'est que récitation et ne doit venir qu'ensuite.

Je te remercie pour ton conseil. En ce qui me concerne, je n'ai pas beaucoup d'expérience en codage et suis en phase d'apprentissage. Avec un projet un peu au-dessus de mes capacités. Mais je relève le challenge. Je n'ai rien à perdre mais tout à gagner. Plaisir personnel, progresser en VBA et surtout rendre service gracieusement à mes anciens collègues dans la galère.

Pour la stratégie, à l'authentification selon l'utilisateur la propriété des boutons "Locked sera à False ou True". Pour le codage, je n'ai fait que la partie changement de mot de passe. Pour le reste, mes recherches sont en cours.

Merci.

ucfoutu · Answer

Cela ne te servirait de toutes manières pas, puisque, ainsi, tu retomùbes dans le cas de figure où il suffirait à l'utilisateur d'aller dans les onglets, cliquer droit = == >> afficher !!
Non ! Il est impératif de mettre le code que je t'ai indiqué dans CHACUNE des feuilles à cacher.
De cette manière (et  de cette seule manière ), même lorsque l'utilisateur aura réaffiché,  la feuille redeviendra invisible dès qu'il voudra y entrer  
Ne cherche pas à faire autrement, ce serait peine perdue.


________________________
Réponse exacte ?   => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

jordane45 · Answer

je me permet de reintervenir aussi...
A la place du visible=false,
il est possible d'utiliser le XLSheetHidden ( voir dans mes messages précédents).
De cette façon, il n'est plus possible (il me semble), sauf par macro, de rendre les feuilles visibles.


Cordialement,
Jordane
_____________________________________________________
Règles du forum à lire avant de poster une question : ICI

scribetout · Answer

Je vous remercie beaucoup.
Eh, oui! Théorie, pratique, expérience et les règles de l'art sont les ingrédients qui différencient deux individus dans un même domaine.
J'ai trouvé ceci 
With ActiveWindow
.DisplayWorkbookTabs = False
End With 
Sur ce fil Tapez le texte de l'url ici.
Qu'en pensez-vous?
Merci pour vos conseils. Je dois faire et refaire des tests jusqu'à satisfaction.

Cordialement,
Scribetout

cs_Le Pivert · Answer

Je voudrais en fait, empêcher les utilisateurs de faire apparaître les onglets via "OptionExcel". 

Voilà ce que tu as demandé dans ton 1er message, pour l'obtenir tu mets ceci dans ThisWorkbook:


 Option Explicit
 Dim Tm, ctl
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'rétabli les onglets
 ActiveWindow.DisplayWorkbookTabs = True
  'rétabli la réactivation des onglets
 Set Tm = Application.CommandBars(1).FindControl(ID:="30007")
For Each ctl In Tm.Controls
If ctl.ID = "522" Then
ctl.Enabled = Not ctl.Enabled
End If
Next
End Sub
Private Sub Workbook_Open()
'affiche la Feuil Menu
Sheets("Menu").Select
'cache les onglets
 ActiveWindow.DisplayWorkbookTabs = False
 'neutralise la réactivation des onglets
Set Tm = Application.CommandBars(1).FindControl(ID:="30007")
For Each ctl In Tm.Controls
If ctl.ID = "522" Then
ctl.Enabled = Not ctl.Enabled
End If
Next
End Sub


Voilà c'est simple et tu as ce que tu as demandé!

@+ Le Pivert

ucfoutu · Answer

Bonjour, Le Pivert,
Vérifie quand-même que ce code fonctionne également avec Excel 2010.
Je n'ai pas Excel 2010, mais me rappelle avoir lu quelque part que ces choses ont été mises dans le ruban de l'application Excel et qu'il n'y a plus d'objet/collection CommandBar(s) dans le modèle d'objet.
A vérifier.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

scribetout · Answer

Messieurs bonsoir,

Je viens de tester le code de "Le Pivert", à l'ouverture du classeur après activation des macros, en effet toutes les feuilles deviennent invisibles et seule la feuille "Menu" est visible. Par contre, en passant par les options avancées d'Excel, l'affichage des feuilles se rétablit. Et c'est justement, ce que je cherche à éviter.

Cher Ucfoutu, concernant la version peu importe. Je travaille sur 2007 et conçois ce fichier pour mes amis qui travaillent sur Excel 2003.

je vous remercie pour l'intérêt que vous portez à cette discussion.

Bonne soirée!

cs_MPi · Answer

Utilise la propriété xlSheetVeryHidden pour les feuilles en plus d'un mot de passe sur le code et le classeur et personne ne pourra l'afficher sauf s'ils connaissent le mot de passe du code ou encore beaucoup de patience à le trouver avec un outil. Excel 2007 est beaucoup plus difficile à cracker...


For each feuille in Worksheets
   if feuille.name <> "Menu" then
      feuille.visible = xlSheetVeryHidden 
.....


Dans certains cas, il faudra réafficher des feuilles.
Si tu utilises Application.ScreenUpdating = False auparavant, l'utilisateur n'y verra rien. (Remettre à True en fin de procédure...)

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

scribetout · Answer

Messieurs je vous salue,

je suis parvenu à obtenir un résultat. Dans mon cas, en cliquant sur un des boutons situés sur le feuille "Menu", ça active une autre feuille et affiche une userform. Dans l'userform, choix avec combobox en cascade à la validation, cette feuille se remplit de données (coordonnées), il ne reste à l'utilisateur qu'à compléter le tableau obtenu. Archiver ces données dans une BD, imprimer et s'il le désire éditer en PDF.Idem pour les autres actions (Affiche feuille et userform).

Dans cette situation,je voulais que l'utilisateur ne puisse pas faire apparaître les autres feuilles. Je vous rappelle que mes connaissances en VBA sont rudimentaires.

Voici donc le code et vous en serai gré de le corriger (dans les cas où, il ne serait pas écrit dans les règles de l'art. Merci).
Je précise que ce code est mis dans le module "ThisWorkbook", Propriété: "SheetDesactivate".
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim feuille As Variant
Application.ScreenUpdating = False
    For Each feuille In Worksheets
       If feuille.Name <> "Menu" Then
       Sheets("Menu").Activate
       ActiveWindow.DisplayWorkbookTabs = False
       End If
    Next

End Sub 
je vous remercie beaucoup. J'attends vos commentaires et critiques pour clore cette discussion.

ucfoutu · Answer

Bien.
Mais les feuilles réapparaissent en réactivant (options d'excel) l'affichage des onglets.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Bon.
Peut-on, maintenant que "fini", observer une chose fondamentale ?
- les données de feuilles invisibles n'ont aucun autre intérêt que celui de leurs valeurs (on oublie donc la mise en forme)
- les données seules d'une feuille ne sont jamais rien d'autre que celle d'un tableau dynamique, dont l'exploitation les remplace très avantageusement.
- la "présentation" de données sur une feuille (donc l'utilisation "tremplin" de Excel) n'a de sens que si l'utilisateur peut les modifier directement sur la feuille. C'est la vocation même d'une feuille.
Voilà voilà ! l'existence même de ces feuilles cachées, utilisées en "tremplin Excel", en lieu et place de données "directes", n'a plus de réelle justification et induit une perte de performances.
Je sais donc déjà que cette appli sera "revue" un jour ou l'autre (lorsque les connaissances se seront développées). 
Mais l'exercice en reste un et il faut bien commencer par du "gros" avant d'envisager du "fin" 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

scribetout · Answer

Messieurs Bonjour!

Réponse à Ucfoutu: En effet, en passant par les options avancées, les onglets s'affichent, mais dés que l'on quitte la feuille active, on retourne sur la feuille "Menu" et les onglets se masquent. Pour moi c'est suffisant. Je te remercie Beaucoup.

Pour MPi et Le Pivert: Je vous rappelle encore une fois que mes connaissances en VBA sont des plus limitées. Je vais tenter d'adapter vos propositions et espère y parvenir.

Mon but était tout simplement d'éviter aux utilisateurs de faire de malencontreuses manipulations sur certaines feuilles (archivage et formules).
Vu mon bas niveau en codage, mes codes plantés dès que je cachais ces feuilles, et n'ai pas su trouver une solution. J'ai donc continué ainsi et pour le moment je n'ai pas été déçu du résultat. Je crains de faire des erreurs et foutre tout en l'air. Je ferai un test sur une copie.

Je vous en suis gré pour votre réactivité. Merci beaucoup à tout le monde.
___________________________________________________________________________
MERCI A TOUS, RÉPONSE ACCEPTÉE!

Empecher affichage onglets excel VBA

38 réponses

Votre réponse

Discussions similaires