Bonjour à tous, je recherche une procédure permettant de retirer toute ls
barre d'outils sur excel ainsi que les menus. C'est le faire dans une macro
auto_open dans un projet et je sais qu'a la fermeture il est nécessaire de
remettre cette procédure avec l'argument true pour les remettre. Mais
impossible de remettre la main sur cette procédure si quelqu'un à une idée.
Merci bien
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
jps
bonjour copie d'une réponse faite ici même il y a qq jours :
bonjour idreV essaie d'exécuter cette macro (signée Modeste Geedee et que j'ai renversée telle une tarte tatin pour les besoins de ta cause) que tu pourrais mettre dans le module ThisWorkbook rayon Private Sub Workbook_Open() du classeur que tes élèves ouvrent Private Sub Workbook_Open()
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
et dans le Private Sub Beforeclose, tu mets la même chose en remplaçant False par True pour retrouver tes barres d'outils
HTH jps
"j0b" a écrit dans le message de news:
Bonjour à tous, je recherche une procédure permettant de retirer toute ls barre d'outils sur excel ainsi que les menus. C'est le faire dans une macro auto_open dans un projet et je sais qu'a la fermeture il est nécessaire de remettre cette procédure avec l'argument true pour les remettre. Mais impossible de remettre la main sur cette procédure si quelqu'un à une idée. Merci bien
bonjour
copie d'une réponse faite ici même il y a qq jours :
bonjour idreV
essaie d'exécuter cette macro (signée Modeste Geedee et que j'ai renversée
telle une tarte tatin pour les besoins de ta cause) que tu pourrais mettre
dans le module ThisWorkbook rayon Private Sub Workbook_Open() du classeur
que tes élèves ouvrent
Private Sub Workbook_Open()
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
et dans le Private Sub Beforeclose, tu mets la même chose en remplaçant
False par True pour retrouver tes barres d'outils
HTH
jps
"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de news:
2B597CB4-5F76-4940-BB3D-36E294F4DDF0@microsoft.com...
Bonjour à tous, je recherche une procédure permettant de retirer toute ls
barre d'outils sur excel ainsi que les menus. C'est le faire dans une
macro
auto_open dans un projet et je sais qu'a la fermeture il est nécessaire de
remettre cette procédure avec l'argument true pour les remettre. Mais
impossible de remettre la main sur cette procédure si quelqu'un à une
idée.
Merci bien
bonjour copie d'une réponse faite ici même il y a qq jours :
bonjour idreV essaie d'exécuter cette macro (signée Modeste Geedee et que j'ai renversée telle une tarte tatin pour les besoins de ta cause) que tu pourrais mettre dans le module ThisWorkbook rayon Private Sub Workbook_Open() du classeur que tes élèves ouvrent Private Sub Workbook_Open()
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
et dans le Private Sub Beforeclose, tu mets la même chose en remplaçant False par True pour retrouver tes barres d'outils
HTH jps
"j0b" a écrit dans le message de news:
Bonjour à tous, je recherche une procédure permettant de retirer toute ls barre d'outils sur excel ainsi que les menus. C'est le faire dans une macro auto_open dans un projet et je sais qu'a la fermeture il est nécessaire de remettre cette procédure avec l'argument true pour les remettre. Mais impossible de remettre la main sur cette procédure si quelqu'un à une idée. Merci bien
j0b
Merci ca fonctionne nickel
bonjour copie d'une réponse faite ici même il y a qq jours :
bonjour idreV essaie d'exécuter cette macro (signée Modeste Geedee et que j'ai renversée telle une tarte tatin pour les besoins de ta cause) que tu pourrais mettre dans le module ThisWorkbook rayon Private Sub Workbook_Open() du classeur que tes élèves ouvrent Private Sub Workbook_Open()
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
With Application
..DisplayFullScreen = False
..DisplayStatusBar = True
..DisplayFormulaBar = True
End With
With ActiveWindow
..DisplayWorkbookTabs = True
..DisplayHeadings = True
End With
End Sub
et dans le Private Sub Beforeclose, tu mets la même chose en remplaçant False par True pour retrouver tes barres d'outils
HTH jps
"j0b" a écrit dans le message de news:
Bonjour à tous, je recherche une procédure permettant de retirer toute ls barre d'outils sur excel ainsi que les menus. C'est le faire dans une macro auto_open dans un projet et je sais qu'a la fermeture il est nécessaire de remettre cette procédure avec l'argument true pour les remettre. Mais impossible de remettre la main sur cette procédure si quelqu'un à une idée. Merci bien
Merci ca fonctionne nickel
bonjour
copie d'une réponse faite ici même il y a qq jours :
bonjour idreV
essaie d'exécuter cette macro (signée Modeste Geedee et que j'ai renversée
telle une tarte tatin pour les besoins de ta cause) que tu pourrais mettre
dans le module ThisWorkbook rayon Private Sub Workbook_Open() du classeur
que tes élèves ouvrent
Private Sub Workbook_Open()
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
With Application
..DisplayFullScreen = False
..DisplayStatusBar = True
..DisplayFormulaBar = True
End With
With ActiveWindow
..DisplayWorkbookTabs = True
..DisplayHeadings = True
End With
End Sub
et dans le Private Sub Beforeclose, tu mets la même chose en remplaçant
False par True pour retrouver tes barres d'outils
HTH
jps
"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de news:
2B597CB4-5F76-4940-BB3D-36E294F4DDF0@microsoft.com...
Bonjour à tous, je recherche une procédure permettant de retirer toute ls
barre d'outils sur excel ainsi que les menus. C'est le faire dans une
macro
auto_open dans un projet et je sais qu'a la fermeture il est nécessaire de
remettre cette procédure avec l'argument true pour les remettre. Mais
impossible de remettre la main sur cette procédure si quelqu'un à une
idée.
Merci bien
bonjour copie d'une réponse faite ici même il y a qq jours :
bonjour idreV essaie d'exécuter cette macro (signée Modeste Geedee et que j'ai renversée telle une tarte tatin pour les besoins de ta cause) que tu pourrais mettre dans le module ThisWorkbook rayon Private Sub Workbook_Open() du classeur que tes élèves ouvrent Private Sub Workbook_Open()
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
With Application
..DisplayFullScreen = False
..DisplayStatusBar = True
..DisplayFormulaBar = True
End With
With ActiveWindow
..DisplayWorkbookTabs = True
..DisplayHeadings = True
End With
End Sub
et dans le Private Sub Beforeclose, tu mets la même chose en remplaçant False par True pour retrouver tes barres d'outils
HTH jps
"j0b" a écrit dans le message de news:
Bonjour à tous, je recherche une procédure permettant de retirer toute ls barre d'outils sur excel ainsi que les menus. C'est le faire dans une macro auto_open dans un projet et je sais qu'a la fermeture il est nécessaire de remettre cette procédure avec l'argument true pour les remettre. Mais impossible de remettre la main sur cette procédure si quelqu'un à une idée. Merci bien
