staple donne une solution pour protéger la mise en page en agissant sur 3 éléments
Code:
Application.CommandBars("Worksheet Menu Bar").Controls("&Fichier").Controls("Mise en Page...").Enabled = False
Application.CommandBars.FindControls(ID:=30255).Item(1).Enabled = False
Application.CommandBars.FindControls(ID:=109).Item(3).Enabled = False
Le premier fait disparaître l'accès au menu Fichier, Mise en page
Le second celui à Fichier, Zone d'impression
Mais je ne sais pas à quoi correspond la troisième.