Masqué le barre de menu feuille de calcul

Joshua14

XLDnaute Occasionnel

• 15 Août 2006

• #2

Re : Masqué le barre de menu feuille de calcul

Bonsoir Mouchty,

Pour ton problème tu peux ajouter le code

Code:

Application.CommandBars("worksheet menu bar").Enabled = False

Tu peux l'ajouter dans la macro Workbook_Activate ou Workbook_Open

Attention ne pas oublier de rendre cette barre de menu accessible dans les autres classeur excel.
Pour cela,

Code:

Application.CommandBars("worksheet menu bar").Enabled = true

dans les macros Workbook_Deactivate et Workbook_close

 

Vote positif 0 Vote négatif

M

Mouchty85

XLDnaute Occasionnel

• 15 Août 2006

• #3

Re : Masqué le barre de menu feuille de calcul

Merci ,c'est supas

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 15 Août 2006

• #4

Re : Masqué le barre de menu feuille de calcul

Re,

Joshua, espérons que l'on ai pas encore un fil "perte de menu" ou "j'ai perdu mes barres !! …
A la fermeture du fichier, c'est Private Sub Workbook_BeforeClose(Cancel As Boolean) et non pas ce que tu as écrit.

Mouchty85, j'éviterais à ta place d'utiliser ce genre de code qui pourrait te donner pas mal de soucis.
A cette fin, je t'invite tout de même à faire une recherche dans le forum Archives en tapant : perte menu, perte barre menu, etc…. Tu y liras les pb ...
Si tu veux uniquement masquer tes feuilles, les insructions ne sont pas celles là mais ceci :

A l'ouverture du fichier pour la feuille 1 :

Code:

Private Sub Workbook_Open()
Sheets("Feuil1").Visible = False
End Sub

A la fermeture du fichier pour la feuille 1 :

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Visible = True
End Sub

.
A bientôt.

 

Vote positif 0 Vote négatif

Joshua14

XLDnaute Occasionnel

• 15 Août 2006

• #5

Re : Masqué le barre de menu feuille de calcul

RE Mouchty, bonsoir Dan,

Désolé pour l'erreur d'intitulé de la macro !!!
Il n'etait pas dans mon intention de créer quelque problèmes que ce soient.

Effectivement tu as raison.

Néanmoins la question de Mouchty etait d'empecher les utilisateurs de son fichier de passer par le menu Format, Feuille pour afficher les feuilles masquées.

Désolé pour l'erreur.( je ne recommencerais plus )

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 15 Août 2006

• #6

Re : Masqué le barre de menu feuille de calcul

re,

Effectivement Joshua14.

Alors soit :
- cacher les onglets pourrait suffire aussi.

ou

dans ma première macro modifier comme suit :

Code:

Private Sub Workbook_Open()
Sheets("Feuil1").Visible = xlVeryHidden
End Sub

 

Vote positif 0 Vote négatif

Joshua14

XLDnaute Occasionnel

• 15 Août 2006

• #7

Re : Masqué le barre de menu feuille de calcul

re,

Connaissait pas la constante xlVeryHidden.

Après prise de renseignement sur l'aide Microsoft, je suis d'accord pour dire qu'elle est pas mal. Epatant même!!!!

Attention quand au fil " au secours j'ai perdu ma feuille1" ( ). Il ne faut pas oublier de faire une macro pour rendre visible la feuille1 de nouveau pour Mouchty.
Bon c'etait juste pour rire.

A bientot sur le forum

 

Vote positif 0 Vote négatif

M

Mouchty85

XLDnaute Occasionnel

• 16 Août 2006

• #8

Re : Masqué le barre de menu feuille de calcul

je vous remercie pour votre aide, mais je soiuhaite bien en effet faire disparaitre la barre de menu, en effet, les personnes qui utiliseront mon programme auront une certaines connaissance pour pouvoir accédé au feuille en utilisant les menu de la barre de menu. je trouverai regregretable que des utilisateurs curieux puissent entré dans les feuilles excel et éventuellement suprimer des formule qui rendrai le programme inutilisable.
Pour rassuré toutes les personnes sur les éventuelles problèmes de diparition des la barre de menu, j'ai réalisé mon programme avec une remise standard d'excel a la fermeture de se programme, cela enpécehra

 

Vote positif 0 Vote négatif

M

Mouchty85

XLDnaute Occasionnel

• 16 Août 2006

• #9

Re : Masqué le barre de menu feuille de calcul

Merci a tous pour l'aide et le temps apporter a ma requéte.

Mouchty85

 

Vote positif 0 Vote négatif