Griser le plein ecran

[fred04]

Bonjour à tous

P'tite question
Dans ThisWorkbook j'ai activé le plein écran.

private sub workbook_open()
application.displayfullScreem=true
end sub

lorsque je me trouve dans les Feuil, que je fais
Affichage, Plein écran cela me le remet en mode normal.

est il possible de griser le plein écran dans l'Affichage.

merci

 

[AeroPlanneur]

bonjour fred,

bien que ce soit irritant pour l'utilisateur de se voir imposé des modes d'affichage ou autre, tu peux faire comme suit, pour 'griser' :

Application.CommandBars(1).Controls('&Affichage').Controls('Plein é&cran').Enabled = False

et pour te dégriser (avant de reprendre la route :woohoo: ) :

Application.CommandBars(1).Controls('&Affichage').Controls('Plein é&cran').Enabled = true

cordialement