OVH Cloud OVH Cloud

Cacher les commandes Excel

2 réponses
Avatar
BlackStorm
Bonsoir à tous,

Voila j'ai une feuille de calcul (normal je suis sur Excel) !
J'ai vu un fichier Excel qui lorsqu'on l'ouvre cache excel : plus d'acces
aux commandes, plus de menus, de barre de taches mais uniquement la feuille
avec ces boutons.

Comment faire cela ?

Merci d'avance à tous !

2 réponses

Avatar
isabelle
bonjour BlackStorm,

voici un exemple, associer à chacune des macro un raccourci ctrl+q et
ctrl+w pour faire les essaies.

Sub Cacher_Tout()
Application.ScreenUpdating = False
On Error Resume Next
Dim cb As CommandBar
With ActiveSheet
For Each cb In CommandBars
cb.Enabled = False
Next cb
End With
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
ActiveWorkbook.DisplayDrawingObjects = xlHide
With Application
.ShowStartupDialog = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayCommentIndicator = 0
.ShowWindowsInTaskbar = False
End With
Application.ScreenUpdating = True
End Sub

Sub Afficher_tout()
Application.ScreenUpdating = False
On Error Resume Next
Dim cb As CommandBar
With ActiveSheet
For Each cb In CommandBars
cb.Enabled = True
Next cb
End With
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
ActiveWorkbook.DisplayDrawingObjects = xlAll
With Application
.ShowStartupDialog = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
.DisplayCommentIndicator = xlCommentIndicatorOnly
.ShowWindowsInTaskbar = True
End With
Application.ScreenUpdating = True
End Sub


isabelle


Bonsoir à tous,

Voila j'ai une feuille de calcul (normal je suis sur Excel) !
J'ai vu un fichier Excel qui lorsqu'on l'ouvre cache excel : plus d'acces
aux commandes, plus de menus, de barre de taches mais uniquement la feuille
avec ces boutons.

Comment faire cela ?

Merci d'avance à tous !


Avatar
BlackStorm
Merci beaucoup !!
Par contre, j'ai fait la manip suivante :
ctrl+q puis ctl+w puis encore la manip sur une feuille vierge.
De la je n'ai eu plus qu'un contour de fenetre. J'ai quitter excel. Je
relance Excel et là , il me fait un écran bleu !

C'est peut etre le hasard.... en tout cas merci pour ton aide précieuse !
"BlackStorm" a écrit dans le message de news:
#
Bonsoir à tous,

Voila j'ai une feuille de calcul (normal je suis sur Excel) !
J'ai vu un fichier Excel qui lorsqu'on l'ouvre cache excel : plus d'acces
aux commandes, plus de menus, de barre de taches mais uniquement la
feuille

avec ces boutons.

Comment faire cela ?

Merci d'avance à tous !