Faire disparaitre la barre des menus

Salut Chokes,

Codes à mettre dans projet VBA dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim CmdB As CommandBar

For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB

End Sub


Private Sub Workbook_Open()

Dim CmdB As CommandBar

For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
End Sub

Sinon va voir ICI :

http://frederic.sigonneau.free.fr/code/BO/CacherToutesBarresOutils1.txt
http://frederic.sigonneau.free.fr/code/BO/CacherToutesBarresOutils2.txt
http://frederic.sigonneau.free.fr/code/BO/BOVisibles.txt

Cordialement.

Excel...lent

Merci Excel...lent

Seulement attention : ainsi que tu me l'as ecris dans thisWorbook ça
fonctionne pas, il faut mettres les formules dans un module macros et les
appeler depuis thisWorbook selon open ou close.

une petite demande également : sais tu comment faire disparaitre le msgBox
de l'imprimante qui t'ennumère les feuilles qui vont etre editées ? je ne
veux pas que l'utilisateur clique sur "annuler", il doit automatiquement
avoir son edition à la fermeture par une macro que j'ai fait et qui
fonctionne bien mais j'ai toujours ce msg qui m'ennuie.

Merci à plus

Salut Chokes,

Chez moi ça marche. Voir ce classeur vide pour exemple avec les codes que je
t'ai donnés et mis dans Thisworkbook : http://cjoint.com/?cftfYdLLS5

Pour ta question sur la fenêtre d'impression je ne sais pas mais pose
directement ta question sur le NG tu aura surement la réponse. Désolé.

Cordialement.

Excel...lent