XL 2010 Masquer le menu excel

[Usine à gaz]

Bonsoir à toutes et à tous,

Me voilà de nouveau à vous solliciter, mes essais et recherches étant infructueuses.

Toujours dans mon "chef d'oeuvre" ou plutôt "votre chef d'oeuvre", je souhaite masquer la barre des menus afin que mes intervenants ne puissent pas faire autre chose que saisir des informations et cliquer sur les boutons des macros.

Après pas mal de recherches, j'ai trouvé sur un site (je ne sais plus où) un fichier remplissant cette fonction.
Et ça marche bien ..... Le voici en pièce jointe.

Quand j'intègre les codes pourtant très courts dans mon fichier de travail, ça ne va plus et il m'affiche une erreur de compilation - variable non définie.
je joins la photo de l'erreur.

Auriez-vous la solution ?

J'ai une seconde question LOL
Même si le fichier joint fonctionne bien, il est facile de tout ré-afficher en cluquant sur Maj+Echappt.
Est-il possible de neutraliser ?

Avec mes remerciements,
Je vous souhaite à toutes et à tous une bonne fin de journée,
Amicalement,
Lionel,

 

[cathodique]

Bonjour,

Attention, pour sortir il faut mettre un bouton.

Vois si ça te conviens. Rien n'apparait d'Excel, ni barre de titre, ni menu, ni barre d'état, ni entete de colonnes et lignes, ni barre des formules.

 

[Usine à gaz]

Bonjour Cathodique,

Super, merci pour cette réponse si rapide.
ça marche même trop bien.

J'ai 2 questions :
- Est-il possible de laisser que la barre formule apparente ?
- Même si le fichier joint fonctionne bien, il est facile de tout ré-afficher en cluquant sur Maj+Echappt.
Est-il possible de neutraliser ?

Vraiment super
Amicalement,
Lionel,

 

[Usine à gaz]

Pour la barre de formule, je pense que c'est bon car la réponse est dans les explications du code

 

[cathodique]

Bonjour Cathodique,
- Même si le fichier joint fonctionne bien, il est facile de tout ré-afficher en cl1quant sur Maj+Echappt.

Quand tu trouveras la solution pense à moi. C'est tout ce que j'ai pu trouver pour le moment.

@+

 

[Usine à gaz]

Bonjour Cathodique, Bonjour Le Forum,

Ton fichier est super mais il bloque trop (même si j'ai trouvé comment afficher la barre de formule).
Le gros souci est qu'il empêche d'afficher la barre de formule me permettant de changer de fenêtre et j'en ai besoin en permanence car je travaille sur internet (site et agendas), en même temps que sur excel.

Je cherche une solution ...
Amicalement,
Lionel,

 

[cathodique]

Et comme ceci (sous excel 2007 et 2010 32 bits fonctionne bien)

 

[Usine à gaz]

Bonjour,

Merci d'être encore là
Là c'est tout bon et génial, ça ne bloque plus l'accès au menu démarrer.

Reste (chose ardue), à trouver comment empêcher l'affichage du menu excel avec Maj+échappt ou autre moyen.
Je cherche et si je trouve, je te dis.
Un grand merci déjà pour tout ça.
Amicalement,
Lionel,

 

[Usine à gaz]

Me revoilou

Petite découverte gênante :
Si je clique, voire photo ci-dessous

Le menu ré-apparaît.
Je cherche comment ne pas afficher

sans bloquer la navigation vers le menu démarrage windows.

 

[Usine à gaz]

j'ai vu que c'est cette ligne de code :

SWLA GAW, -16, &H94080080: SWLA GAW, -20, &H0: DrawMenuBar GAW

qui masque la ligne du titre mais qui bloque la navigation.

Je ne vois pas comment la modifier pour masquer la ligne de titre SANS bloquer la navigation

 

[cathodique]

Tu oublies certainement que tu travailles sous excel qui a été conçu par des pros.

pour ma part, j'utilise ce code depuis un bon bout de temps sans problème.

Alors que toi, tu cherches à tout inhiber. En effectuant des recherches sur le net (google), je suis certain que tu trouveras des choses intéressantes. Il faut juste prendre le temps. Mais au final, est-ce que ça vaut le coup d'investir du temps pour si peu. Laisse le touche Maj tranquille.

Bonne continuation.

 

[Usine à gaz]

Re-Bonjour à toutes et à tous,

Euréka, j'ai trouvé un code super "tout court, tout léger" :

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.CommandBars("Formatting").Enabled = False
Application.CommandBars("Cell").Enabled = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.CommandBars("Formatting").Enabled = True
Application.CommandBars("Cell").Enabled = True
End Sub

Et qui fonctionne du tonnerre et qui ne bloque pas la navigation.

Pour atteindre la fenêtre visual basic : raccourci clavier Alt+F11

Je joins le fichier pour ceux qui seraient intéressés.
Bonne journée,
Amicalement,
Lionel,

 

[cathodique]

Bravo Artour973 tu es parvenu à tes fins.

Petite question: Est-ce qu'avec ce code, tu as maitrisé le Maj+échappt.
Car c'est le cas, tu mérites un double bravo. Si non, il te faut une fessée

Merci pour le partage. Tu as déjà cette qualité "le partage".

 

[Usine à gaz]

OUI, tu peux tester, le menu ne se remet pas quoi qu'on fasse pour un utilisateur lambda.
C'est génial

 

[Usine à gaz]

Merci pour la qualité du partage : Je pense d'ailleurs que je mettrai le fichier de travail complet quand il sera terminé car c'est le travail de vous toutes et tous et un peu le mien LOL