Discussion :

[zblook]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[wilfried_42]

bonjour

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

don excel refuse de rendre invisible la derniere feuille

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

[zblook]

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

Merci

[NEC14]

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.

[House MD]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
...
...
 
MonUserform.show
 
...

et enfin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ca marche je le fais tout le temps...

[wilfried_42]

bonjour à tous

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

dans userform_activate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.visible = not application.visible

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.visible = not application.visible

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

bonne journée

[zblook]

Merci ça marche impeccablement bien