Supprimer/Afficher une commande d'un menu

[herve80]

Bonjour à tous,

Auriez-vous un peu de temps à me consacrer ?

Dans Excel, il y a le menu Format - Feuille - Afficher ou Masquer

Si Application.CommandBars("Sheet").Controls(3).Delete permet de supprimer la commande Afficher, je ne sais pas comment, par code, remettre la commande dans le menu.

But : supprimer la commande afficher au lancement du classeur, puis la remettre à la fermeture.

Comment faire ?

 

[Staple1600]

Re : Supprimer/Afficher une commande d'un menu

Bonjour


Plutot que de l'effacer, tu peux l'invalider

(avec False)

Sub test()
'reactive
Application.CommandBars("Sheet").Controls(2).Enabled = True
Application.CommandBars("Sheet").Controls(3).Enabled = True
End Sub

 

[pierrejean]

Re : Supprimer/Afficher une commande d'un menu

bonjour herve80

plutot que la methode delete un tantinet brutale je te propose d'utiliser enabled en false puis true

Application.CommandBars("Sheet").Controls(2).Enabled = True
Application.CommandBars("Sheet").Controls(3).Enabled = True

un peu d'arnica Staple ?? 🙂

 

[Staple1600]

Re : Supprimer/Afficher une commande d'un menu

Re



Et comme ceci tu actives/réactives avec la meme macro

Sub testII()
Application.CommandBars("Sheet").Controls(2).Enabled = _
Not Application.CommandBars("Sheet").Controls(2).Enabled = True
Application.CommandBars("Sheet").Controls(3).Enabled = _
Not Application.CommandBars("Sheet").Controls(3).Enabled = True
End Sub

Mais as-tu pensé à tout?

On peut encore afficher les feuilles par un autre moyen


edit: Bonjour pierrejean (pourquoi de l'arnica?)

 

[herve80]

Re : Supprimer/Afficher une commande d'un menu

Re

Mais as-tu pensé à tout?

On peut encore afficher les feuilles par un autre moyen

Merci pour vos réponses les amis.

Mais je m'inquiète de cette remarque. On peut encore l'afficher ?

Je vous explique : j'aimerais faire un journal intime, mais pas caché par un password (sinon on me posera des questions en tombant dessus).

Donc, j'aimerais le taper dans une 4ième feuille, qui est cachée.
Taper un certain mot dans une certaine cellule entraînera l'affichage de cette 4ième feuille.

Donc : comment la cacher astucieusement ?

nb : merci pour votre coup de main, quel travail vous faites !

 

[Staple1600]

Re : Supprimer/Afficher une commande d'un menu

Re


Applique cette macro sur un classeur de test

Sub testII()
Application.CommandBars("Sheet").Controls(2).Enabled = _
Not Application.CommandBars("Sheet").Controls(2).Enabled = True
Application.CommandBars("Sheet").Controls(3).Enabled = _
Not Application.CommandBars("Sheet").Controls(3).Enabled = True
End SubEffectivement dans le menu Format/Feuille
Afficher et Masquer sont grisés


Mais fais un clic-droit
sur un onglet d'une feuille visible
Et la tu accdéer au propiétér des feuilles masquées

et les metre sur xlVisible


edit: voir fichier joint

 

[herve80]

Re : Supprimer/Afficher une commande d'un menu

Staple1600,

Je comprends : un clic droit sur une feuille et on a "visualiser le code".

Et on voit qu'il existe une 4ième feuille !

Comment empêcher ça ?

 

[Staple1600]

Re : Supprimer/Afficher une commande d'un menu

Re


On peut l'empecher en désactivant le clic-droit

(mais cela peut-etre genant)

Mais meme apres apres desactiver le clic-droit


Il y a encore un moyen ...

 

[TheLio]

Re : Supprimer/Afficher une commande d'un menu

Salut Tous,

En mettant ta feuille "Xlsheetverryhidden"
Ensuite tu regroupe toutes tes feuilles et modules dans VBAProject... tu le protèges par mot de passe et ça devrat suffir non?

A++
TheLio

 

[herve80]

Re : Supprimer/Afficher une commande d'un menu

J'ai trouvé le line :
PROTEGER SES SOURCES VBA , Source N°29510

Private Sub Workbook_Open()
Dim CmdB As CommandBar
'desactivation des touches de raccourcis ...
Application.OnKey "%{F8}", ""
Application.OnKey "%{F11}", ""
'fermeture de l'editeur VBA ...(au cas ou ils soit ouvert lors du lancement du classeur programmé ...
Application.VBE.MainWindow.Visible = False
'Desactivation de la barre d'outils VBA et du raccourci dans le menu ....
Application.CommandBars("Visual Basic").Enabled = False
Application.CommandBars("Macro").Enabled = False

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Visual Basic").Enabled = Ttrue
Application.CommandBars("Macro").Enabled = True

Mais Application.VBE.MainWindow.Visible = False fait une erreur, et ça ne fonctionne pas (clic droit - voir le code est encore là !)

Merci de m'aider

 

[Staple1600]

Re : Supprimer/Afficher une commande d'un menu

RE


Donc pour poursuivre l'aventure

Sub desact_clic_droit()
Application.CommandBars("cell").Enabled = False
Application.CommandBars("Ply").Enabled = False
End Sub

Précisions: toutes ces protections ne serviront à rien si la personne
sait ouvrir un classeur sans activer les macros.

Ou si elle ouvre le classeur avec un autre logiciel

 

[herve80]

Re : Supprimer/Afficher une commande d'un menu

Staple1600,

Tu es génial. Je comprends qu'il y a des risques.

Il n'empêche que tu m'as beaucoup aidé, et que je te suis infiniment reconnaissant pour le temps que tu m'as consacré.

Une excellent journée, et encore merci beaucoup ! 🙂