cacher la barre des menus

[Dehoust]

Bonjour au forum

Comment faire pour que la première action dans l'exécution d'un programme VBA l'écran n'affiche plus ni la barre de titre, ni la barre des menus ni les barres d'outils éventuelles et que, par conséquent, il ne soit plus possible d'atteindre les déprotections de feuilles ni l'éditeur de macros et donc de modifier le programme.

merci pour votre aide

jean-pierre

 

[lea]

Bonjour,

Tu inclues le code suivant dans un module

Sub Autpen()

Dim Cmdb As CommandBar
For Each Cmdb In CommandBars
Cmdb.Enabled = False
Next Cmdb
Application.DisplayFormulaBar = False
End

Petit problème, il ne faut pas oublier de quitter le fichier sans remettre les barres

Dim Cmdb As CommandBar
For Each Cmdb In CommandBars
Cmdb.Enabled = True
Next Cmdb
Application.DisplayFormulaBar = True
End

Sinon elles n'apparaîtront plus à la prochaine ouverture

Léa