Bonjour Juliette,
pour ce qui est du menu fichier la commande est celle-ci, il faudra réactiver les menus à la fermeture en mentionnant enabled = tru
with CommandeBars("Worksheet Menu Bar")
.Controls(1).Controls(4).enabled = false
Controls(1).Controls(5).enabled = false
end with
Pour ce qui est de l'icone, ça doit être une commande du même genre, mais je ne l'ai jamais fait. En simulant une macro qui va à l'affichage, barre d'outils standard et personnaliser tu dois trouver la solution à ton problème.
Bonne journée.
yolène