masquer des feuilles

bonjour,

Je cherche à masquer toutes les feuilles à l'ouverture de mon fichier (pour faire apparaître un UserForm me permettant de choisir un ou plusieurs utilisateurs avec des privilèges différents sur les feuilles). pour le moment mon code est le suivant :

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open()   Worksheets("ATELIER").Visible = False ' Masque la feuille "ATELIER" Worksheets("INFO").Visible = False ' Masque la feuille "INFO"   End Sub

---

Mais une erreur apparaît :

Citation:

---

1004 Impossible de définir la propriété Visible de la classe Worksheet

---

J'ai l'impression qu'excel n'aime pas ne pas avoir de fêuille à ouvrir au départ !!!
Comment peut on contourner la difficultée ?

merci

bonjour

quand on ouvre un classeur, c'est pour travailler :mouarf: et pour travailler, il faut une feuille :P

don excel refuse de rendre invisible la derniere feuille :aie:

donc astuce, une feuille de presentation avec un beau dessin ! qui restera visible le temps de ton UserForm :bug:

Si j'ai pas le choix ... je vais m'en contenter. Mais j'aurais aimé quelque chose de plus "propre" !

Merci

Citation:

---

Envoyé par zblook

Si j'ai pas le choix ... je vais m'en contenter. Mais j'aurais aimé quelque chose de plus "propre" !

Merci

---

Bonjour zblook,

Tu as aussi la solution d'une feuille blanche, sans quadrillage, c'est ce que j'ai fait.

Si au début de ton prog, tu écris :

Code:

---

1 2	Application.screenupdating=false application.visible=false

---

Puis :

Code:

---

1 2 3 4 5 6

... ...   MonUserform.show   ...

---

et enfin

Code:

---

1 2	application.visible=true application.screenupdating=true

---

Ca marche je le fais tout le temps...

bonjour à tous

Personnellement, ce que je fais est plus radicale, mais aussi un peut plus long en traitement

dans userform_activate

Code:

---

application.visible = not application.visible

---

dans le bouton, avant le unload me, pour tout reafficher
un petit copier coller

Code:

---

application.visible = not application.visible

---

et durant le temps de l'usf c'est tout Excel qui disparait

bonne journée

Merci ça marche impeccablement bien