Faire disparaître menus et barres puis les restaurer(vba)
4 réponses
linux_pac
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit
Dim Barres As Collection
Private Sub Workbook_Activate()
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres
dans le Sub WorkBook_Deactivate
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
michdenis
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"" a écrit dans le message de news:
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit Dim Barres As Collection
Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre.Name Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres dans le Sub WorkBook_Deactivate
Une petite aide merci source:excel labo
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"linux_pac@yahoo.fr" <linuxpacyahoofr@discussions.microsoft.com> a écrit dans le message de news:
F7F740B8-EA95-4403-96A2-AF7D03C80154@microsoft.com...
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit
Dim Barres As Collection
Private Sub Workbook_Activate()
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres
dans le Sub WorkBook_Deactivate
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"" a écrit dans le message de news:
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit Dim Barres As Collection
Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre.Name Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres dans le Sub WorkBook_Deactivate
Une petite aide merci source:excel labo
jps
For Each Barre In Barres.....? hum hum....y a du louche par rapport à la syntaxe du Workbook Activate, ce me semble jps
"michdenis" a écrit dans le message de news:
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"" a écrit dans le message de news:
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit Dim Barres As Collection
Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre.Name Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres dans le Sub WorkBook_Deactivate
Une petite aide merci source:excel labo
For Each Barre In Barres.....? hum hum....y a du louche par rapport à la
syntaxe du Workbook Activate, ce me semble
jps
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
un2dp4RTGHA.424@TK2MSFTNGP12.phx.gbl...
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"linux_pac@yahoo.fr" <linuxpacyahoofr@discussions.microsoft.com> a écrit
dans le message de news:
F7F740B8-EA95-4403-96A2-AF7D03C80154@microsoft.com...
Bonjour, je voudrais faire disparaitre les menus puis les faire
réapparaître
Pour cela j'ai fait,
Option Explicit
Dim Barres As Collection
Private Sub Workbook_Activate()
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In
Barres
dans le Sub WorkBook_Deactivate
For Each Barre In Barres.....? hum hum....y a du louche par rapport à la syntaxe du Workbook Activate, ce me semble jps
"michdenis" a écrit dans le message de news:
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"" a écrit dans le message de news:
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit Dim Barres As Collection
Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre.Name Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres dans le Sub WorkBook_Deactivate
Une petite aide merci source:excel labo
michdenis
Bonjour Sieur du Beaujolais,
| For Each Barre In Barres
Observe en haut de tout du module, (son message) barres est une variable déclarée au niveau du module de type collection.
à cet effet, "For Each Barre In Barres" boucle sur chacune des barres contenues dans la collection...
;-)
Salutations!
"jps" a écrit dans le message de news: For Each Barre In Barres.....? hum hum....y a du louche par rapport à la syntaxe du Workbook Activate, ce me semble jps
"michdenis" a écrit dans le message de news:
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"" a écrit dans le message de news:
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit Dim Barres As Collection
Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre.Name Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres dans le Sub WorkBook_Deactivate
Une petite aide merci source:excel labo
Bonjour Sieur du Beaujolais,
| For Each Barre In Barres
Observe en haut de tout du module, (son message)
barres est une variable déclarée au niveau du module
de type collection.
à cet effet, "For Each Barre In Barres" boucle sur chacune
des barres contenues dans la collection...
;-)
Salutations!
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news: eds2NDSTGHA.4132@TK2MSFTNGP11.phx.gbl...
For Each Barre In Barres.....? hum hum....y a du louche par rapport à la
syntaxe du Workbook Activate, ce me semble
jps
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
un2dp4RTGHA.424@TK2MSFTNGP12.phx.gbl...
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"linux_pac@yahoo.fr" <linuxpacyahoofr@discussions.microsoft.com> a écrit
dans le message de news:
F7F740B8-EA95-4403-96A2-AF7D03C80154@microsoft.com...
Bonjour, je voudrais faire disparaitre les menus puis les faire
réapparaître
Pour cela j'ai fait,
Option Explicit
Dim Barres As Collection
Private Sub Workbook_Activate()
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In
Barres
dans le Sub WorkBook_Deactivate
Observe en haut de tout du module, (son message) barres est une variable déclarée au niveau du module de type collection.
à cet effet, "For Each Barre In Barres" boucle sur chacune des barres contenues dans la collection...
;-)
Salutations!
"jps" a écrit dans le message de news: For Each Barre In Barres.....? hum hum....y a du louche par rapport à la syntaxe du Workbook Activate, ce me semble jps
"michdenis" a écrit dans le message de news:
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"" a écrit dans le message de news:
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit Dim Barres As Collection
Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre.Name Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres dans le Sub WorkBook_Deactivate
Une petite aide merci source:excel labo
michdenis
Bonjour JPS,
le demandeur aurait pu enregistrer directement les objets (commandBar) dans la variable collection au lieu d'y insérer les noms de ces dernières.
La procédure aurait été :
'Variable dans le haut du module Dim Barres As Collection '---------------------------------- Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre 'Note la subtitlité ici Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
'--------------------------- Private Sub Workbook_Deactivate() Dim Barre As CommandBar For Each Barre In Barres Barre.Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub '---------------------------
Salutations!
"jps" a écrit dans le message de news: For Each Barre In Barres.....? hum hum....y a du louche par rapport à la syntaxe du Workbook Activate, ce me semble jps
"michdenis" a écrit dans le message de news:
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"" a écrit dans le message de news:
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit Dim Barres As Collection
Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre.Name Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres dans le Sub WorkBook_Deactivate
Une petite aide merci source:excel labo
Bonjour JPS,
le demandeur aurait pu enregistrer directement les objets (commandBar)
dans la variable collection au lieu d'y insérer les noms de ces dernières.
La procédure aurait été :
'Variable dans le haut du module
Dim Barres As Collection
'----------------------------------
Private Sub Workbook_Activate()
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre 'Note la subtitlité ici
Barre.Visible = False
End If
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = False
End Sub
'---------------------------
Private Sub Workbook_Deactivate()
Dim Barre As CommandBar
For Each Barre In Barres
Barre.Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
'---------------------------
Salutations!
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news: eds2NDSTGHA.4132@TK2MSFTNGP11.phx.gbl...
For Each Barre In Barres.....? hum hum....y a du louche par rapport à la
syntaxe du Workbook Activate, ce me semble
jps
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
un2dp4RTGHA.424@TK2MSFTNGP12.phx.gbl...
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"linux_pac@yahoo.fr" <linuxpacyahoofr@discussions.microsoft.com> a écrit
dans le message de news:
F7F740B8-EA95-4403-96A2-AF7D03C80154@microsoft.com...
Bonjour, je voudrais faire disparaitre les menus puis les faire
réapparaître
Pour cela j'ai fait,
Option Explicit
Dim Barres As Collection
Private Sub Workbook_Activate()
Dim Barre As CommandBar
Set Barres = New Collection
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "Worksheet Menu Bar" Then
Barres.Add Barre.Name
Barre.Visible = False
End If
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In
Barres
dans le Sub WorkBook_Deactivate
le demandeur aurait pu enregistrer directement les objets (commandBar) dans la variable collection au lieu d'y insérer les noms de ces dernières.
La procédure aurait été :
'Variable dans le haut du module Dim Barres As Collection '---------------------------------- Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre 'Note la subtitlité ici Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
'--------------------------- Private Sub Workbook_Deactivate() Dim Barre As CommandBar For Each Barre In Barres Barre.Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub '---------------------------
Salutations!
"jps" a écrit dans le message de news: For Each Barre In Barres.....? hum hum....y a du louche par rapport à la syntaxe du Workbook Activate, ce me semble jps
"michdenis" a écrit dans le message de news:
Bonjour,
Ceci ne provoque aucune erreur sur la version Excel 2003.
Salutations!
"" a écrit dans le message de news:
Bonjour, je voudrais faire disparaitre les menus puis les faire réapparaître
Pour cela j'ai fait,
Option Explicit Dim Barres As Collection
Private Sub Workbook_Activate() Dim Barre As CommandBar Set Barres = New Collection For Each Barre In Application.CommandBars If Barre.Visible = True And _ Barre.Name <> "Worksheet Menu Bar" Then Barres.Add Barre.Name Barre.Visible = False End If Next Barre Application.CommandBars("worksheet menu bar").Enabled = False End Sub
Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub
Il me donne une erreur( Error '424', Objet requis) à For Each Barre In Barres dans le Sub WorkBook_Deactivate
