Cacher Onglets

[ryadus]

Bonjour à tous,
j'aimerais savoir sp comment faire pour cacher les onglets en bas de chaque feuille?

j'ai envie de faire des boutons de navigations entre page et ne pas permettre à l'utilisateur d'utiliser les onglets ...

Merci

 

[ERIC S]

Re : Cacher Onglets

Bonjour

outils option affichage onglets de classeur

 

[Droussel]

Re : Cacher Onglets

commande pour cacher les onglets

ActiveWindow.DisplayWorkbookTabs = False

valeur true pour les faire réapparaitre

en fait c'est le code macro de la case à cocher dans outils options

A+
Denis

 

[Dan]

Re : Cacher Onglets

Bonjour,

Une simple solution :
- Menu / outils / options
- onglet "affichage", décoche la case "onglet du classeur"

Bon là c'est sûr que si l'utilsateur connait Excel, il pourra les afficher en faisant l'inverse de ce que je te dis.
Mais tu peux aussi les cacher par la commande de ton bouton en ajoutant l'instruction : ActiveWindow.DisplayWorkbookTabs = False

A te lire

 

[ryadus]

Re : Cacher Onglets

Ah oui, c'est très facile, je pensais que c'etait beaucou plus compliqué. Merci

Mais par contre est ce qu'on pourrait empecher l'utilisateur de changer cette option ?

 

[Dan]

Re : Cacher Onglets

Re,

Pas facile là si on veux rester simple.Toutefois, une idée à exploiter.

Si tu as une feuille "ACCEUIL" dans ton fichier, on pourrait imaginer qu'à l'ouverture de ton fichier l'utilisateur soit directement positionné sur cette feuille "ACCUEIL".
Si, une fois le fichier ouvert, il essaie d'aller cocher la case "onglet" via menu/outils..., il pourra voir le nom des feuilles de ton classeur.

Par contre, s'il essaie de voir le contenu d'une des feuilles autres que la feuille "ACCEUIL", le fait de cliquer sur une de ces feuilles peut remasquer automatiquement toutes les feuilles et le renvoyer sur la feuille "ACCEUIL".

Fais cet essai :
- dans un classeur nomme une feuille ACCEUIL et encode une valeur dans une cellule au hasard pour te répérer.
- ALT + F11 pour aller dans VBA
- CTRL + R pour afficher la fenêtre "propriétés" à gauche
- Double clique sur THISWORKBOOK
- A droite mets les codes ci-dessous :

Private Sub Workbook_Open()
Sheets("Acceuil").Activate
ActiveWindow.DisplayWorkbookTabs = False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sheets("Acceuil").Activate
ActiveWindow.DisplayWorkbookTabs = False
End Sub

- Enregistre ton fichier (Important !!) puis ferme le
- Réouvre ton fichier et fais un essai.

A te lire

 

[ryadus]

Re : Cacher Onglets

Ok merci, interessante idée. je vais essayé.