Bonjour
"Vincent" a écrit dans le message de news:
> Sub Cache_barre_menu()
> Application.CommandBars("Worksheet Menu Bar").Enabled = False
> End Sub
oui ca marche mais maintenant tous les classeurs que j'ouvre n'ont plus la
barre de menus, j'ai su la remettre mais comment faire pour que ce ne soit
que pour ce classeur ?
J'ai ecrit
Private Sub Workbook_Open()
CacheBarreMenu
Worksheets("menu").Select
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
et j'ai mis CacheBarreMenu dans le module 1
Je n'ai peut-etre pas fais comme il faut.
Merci pour votre aide
Amicalement
Anne-Marie
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
Donnazac
désole je viens de voir que Starwing avait donner la reponse Merci
Amitiés Anne-Marie
"Donnazac" a écrit dans le message de news: %23NHnm%
Bonjour "Vincent" a écrit dans le message de news:
Sub Cache_barre_menu() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub oui ca marche mais maintenant tous les classeurs que j'ouvre n'ont plus la
barre de menus, j'ai su la remettre mais comment faire pour que ce ne soit que pour ce classeur ? J'ai ecrit Private Sub Workbook_Open() CacheBarreMenu Worksheets("menu").Select ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False End Sub et j'ai mis CacheBarreMenu dans le module 1 Je n'ai peut-etre pas fais comme il faut. Merci pour votre aide Amicalement Anne-Marie
-- Bisou Anne-Marie
désole je viens de voir que Starwing avait donner la reponse Merci
Amitiés
Anne-Marie
"Donnazac" <am.courbatieu@club-internet.fr> a écrit dans le message de news:
%23NHnm%23ouEHA.1712@TK2MSFTNGP14.phx.gbl...
Bonjour
"Vincent" a écrit dans le message de news:
Sub Cache_barre_menu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
oui ca marche mais maintenant tous les classeurs que j'ouvre n'ont plus la
barre de menus, j'ai su la remettre mais comment faire pour que ce ne soit
que pour ce classeur ?
J'ai ecrit
Private Sub Workbook_Open()
CacheBarreMenu
Worksheets("menu").Select
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
et j'ai mis CacheBarreMenu dans le module 1
Je n'ai peut-etre pas fais comme il faut.
Merci pour votre aide
Amicalement
Anne-Marie
désole je viens de voir que Starwing avait donner la reponse Merci
Amitiés Anne-Marie
"Donnazac" a écrit dans le message de news: %23NHnm%
Bonjour "Vincent" a écrit dans le message de news:
Sub Cache_barre_menu() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub oui ca marche mais maintenant tous les classeurs que j'ouvre n'ont plus la
barre de menus, j'ai su la remettre mais comment faire pour que ce ne soit que pour ce classeur ? J'ai ecrit Private Sub Workbook_Open() CacheBarreMenu Worksheets("menu").Select ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False End Sub et j'ai mis CacheBarreMenu dans le module 1 Je n'ai peut-etre pas fais comme il faut. Merci pour votre aide Amicalement Anne-Marie
-- Bisou Anne-Marie
michdenis
Bonjour Anne-Marie,
Dans le ThisWorkbook, il y a d'autres événements qui sont susceptibles de t'aider à ta tâche :
Cet événement se produit à chaque fois que tu sélectionnes une autre classeur actif ouvert avec la même instance d'excel. Si tu veux que tes autres classeurs affichent les menus, utilises cet événement pour les faires apparaître. '------------------- Private Sub Workbook_Deactivate()
End Sub '-------------------
Cet événement permet de masquer à chaque fois que tu sélectionneras ton classeur comme fenêtre active. Alors utilise le pour masquer tes barres d'outils .... que tu désires. '------------------- Private Sub Workbook_Activate()
End Sub '-------------------
Salutations!
"Donnazac" a écrit dans le message de news:%23NHnm% Bonjour "Vincent" a écrit dans le message de news:
Sub Cache_barre_menu() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub oui ca marche mais maintenant tous les classeurs que j'ouvre n'ont plus la
barre de menus, j'ai su la remettre mais comment faire pour que ce ne soit que pour ce classeur ? J'ai ecrit Private Sub Workbook_Open() CacheBarreMenu Worksheets("menu").Select ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False End Sub et j'ai mis CacheBarreMenu dans le module 1 Je n'ai peut-etre pas fais comme il faut. Merci pour votre aide Amicalement Anne-Marie
-- Bisou Anne-Marie
Bonjour Anne-Marie,
Dans le ThisWorkbook, il y a d'autres événements qui sont susceptibles de t'aider à ta tâche :
Cet événement se produit à chaque fois que tu sélectionnes une autre classeur actif ouvert avec la même instance
d'excel. Si tu veux que tes autres classeurs affichent les menus, utilises cet événement pour les faires apparaître.
'-------------------
Private Sub Workbook_Deactivate()
End Sub
'-------------------
Cet événement permet de masquer à chaque fois que tu sélectionneras ton classeur comme fenêtre active. Alors utilise le
pour masquer tes barres d'outils .... que tu désires.
'-------------------
Private Sub Workbook_Activate()
End Sub
'-------------------
Salutations!
"Donnazac" <am.courbatieu@club-internet.fr> a écrit dans le message de news:%23NHnm%23ouEHA.1712@TK2MSFTNGP14.phx.gbl...
Bonjour
"Vincent" a écrit dans le message de news:
Sub Cache_barre_menu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
oui ca marche mais maintenant tous les classeurs que j'ouvre n'ont plus la
barre de menus, j'ai su la remettre mais comment faire pour que ce ne soit
que pour ce classeur ?
J'ai ecrit
Private Sub Workbook_Open()
CacheBarreMenu
Worksheets("menu").Select
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
End Sub
et j'ai mis CacheBarreMenu dans le module 1
Je n'ai peut-etre pas fais comme il faut.
Merci pour votre aide
Amicalement
Anne-Marie
Dans le ThisWorkbook, il y a d'autres événements qui sont susceptibles de t'aider à ta tâche :
Cet événement se produit à chaque fois que tu sélectionnes une autre classeur actif ouvert avec la même instance d'excel. Si tu veux que tes autres classeurs affichent les menus, utilises cet événement pour les faires apparaître. '------------------- Private Sub Workbook_Deactivate()
End Sub '-------------------
Cet événement permet de masquer à chaque fois que tu sélectionneras ton classeur comme fenêtre active. Alors utilise le pour masquer tes barres d'outils .... que tu désires. '------------------- Private Sub Workbook_Activate()
End Sub '-------------------
Salutations!
"Donnazac" a écrit dans le message de news:%23NHnm% Bonjour "Vincent" a écrit dans le message de news:
Sub Cache_barre_menu() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub oui ca marche mais maintenant tous les classeurs que j'ouvre n'ont plus la
barre de menus, j'ai su la remettre mais comment faire pour que ce ne soit que pour ce classeur ? J'ai ecrit Private Sub Workbook_Open() CacheBarreMenu Worksheets("menu").Select ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False End Sub et j'ai mis CacheBarreMenu dans le module 1 Je n'ai peut-etre pas fais comme il faut. Merci pour votre aide Amicalement Anne-Marie
