Ouverture Excel + Execution auto + suppression des feuilles

[Goont]

Bonjour,
En fait j'ai un petit programme en VBA...
A l'ouverture du fichier .xls j'aimerai:
-cacher les barres de menu et d'outils
-afficher un bouton
(juska la ce devrait aller)
-enlever les feuilles de calcul (qui me serve pas en fait... Oui je sais j'airai du utiliser VB) du fond ... et voila



En fait pour faire plus simple j'aimerai eviter a l'utilisateur de faire n'importe kwa!! Pas de saisie dans les cellules et l'opportunité de soit fermer soit executer la macro...

MErci

 

[didier]

Voila le moyen de cacher toutes les feuilles d'un classeur :

For Each Feuil In Worksheets
Feuil.Visible = False
Next Feuil

Mais le problème est que Excel ne voudra pas cacher la dernière, il lui en faudra toujours une visible ...
Donc voici pour cacher toutes les feuilles à l'exception d'une :

For i = 1 To Worksheets.Count - 1
Worksheets(i).Visible = False
Next i

A+
Didier