Masque commande bar

Bonjour,

Je suis entrain de faire un petit "programme" avec un onglet sommaire et plein d'autre onglet.

ce que je voudrais faire c'est de retirer barre d’état,onglet, ruban etc.. j'ai donc lancer ça :

Private Sub Workbook_Open()

Application.CommandBars("Status Bar").Visible = False

ActiveWindow.DisplayHeadings = False

ActiveWindow.DisplayWorkbookTabs = False

End Sub

Malheureusement j'ai un petit soucis :

1. Quand je clique sur une bulle depuis l'accueil ( redirection vers autre onglet) --> les barres lettres et chiffres apparaissent.

Accueil = png main

et la redirection vers main_into_main.png

Merci d'avance pour votre aides !!

bonjour,

Certaines instructions bien que de niveau "Windows" doivent être appliquées en réalité à chaque Worksheet :

Il faut donc appliquer cette instruction à chaque onglet (visible) si tu veux que tout disparaisse.

Quand je veux faire un truc comme ça, je fais d'abord mon appli et ensuite je transfère toutes les feuilles dans le classeur joint. Et je supprime ensuite les 2 feuilles vierges (via VBA)

A+

hello,

merci pour ta réponse.

J'ai bcp trifouiller entre deux et je n'est plus accès a la barre de menu et autre sur tout les autre fichier excel..

J'ai même lancé une désinstallation / réinstallation : toujours pareil..

tu sais ce qui peut poser ce soucis ?

Si tu parles de mon classeur vide, ce n'est pas possible !

Fait ton appli et ne t'occupe pas de l'environnement.

Ensuite transfère le tout dans le classeur vide, tu ne seras pas embêté par l'enrobage : il n'y en a pas.

Tout doit être prévu dans ton appli !

Si finition il y en a à faire il faut les faire via VBA ! (Donc il vaut mieux que l'application soit terminée, testée et retestée avant de la basculer dans le classeur vide !)

A+

Bonjour. Inutile de réinstaller…

Pour revenir à un écran classique, souvent il faut juste appuyer sur échap. Mais au cas ou…

Voici les quatre macros pratiques pour le format de ton Ecran Excel.

Sub Eran_Normal()
' Affiche un Ecran Normal avec ascenceurs et outils
 On Error Resume Next
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayGridlines = True
ActiveWindow.Zoom = 100
End Sub

Ensuite

Sub Ecran_Agrandi()

' Affiche un ecran normal dépourvu de quadrillage et d'ascenseurs

 On Error Resume Next
Application.DisplayFormulaBar = True
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.Zoom = 100
End Sub

La suivante:

Sub Plein_Ecran()

' Affiche le Plein Ecran mais avec ascenceurs et entêtes

 On Error Resume Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayGridlines = True
End Sub

Et enfin:

Sub Tres_Grand_Ecran()

' Affiche le très grand Ecran Presentation nu

On Error Resume Next
' MsgBox (" Pour quitter appuyez sur ECHAP!")
Application.Speech.Speak " Pour quitter appuyez sur ECHAP!"
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayGridlines = False
Application.DisplayFullScreen = True

End Sub

Donc chacune te présente un écran différent… Ainsi tu peux jouer. Pour plus de convivialité, ajoutes celle-ci dans ta barre d'outils Cellule Ainsi d'un clic droit tu récupèrera ton ruban.

Sub Voir_Ruban()

'  Affiche le Ruban et la barre d'Outil Accè?s rapide

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFullScreen = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFullScreen = False

End Sub

Personnellement, j'utilise, comme je l'explique dans mon livre la propriété

Application.Speech.Speak " coucou"

Celle ci fait parler Excel.

Amis si il y a d'autres utilisateurs dans le bureau, un simple

MsgBox (" Coucou!")

Est aussi efficace.

Cordialement

Re -bonjour.

Bien sur, ces macros sont à placer dans le Classeur de macros personnelles et ainsi disponibles en tout temps…

Cordialement.