[VBA Excel] problème d'utilisation fct xlSheetVeryHidden

Bonjour,

J'ai un problème avec les fonctions xlSheetVeryHidden et xlSheetVisible.
Je réalise un programme excel pour une association, qui devra afficher des feuilles différentes en fonctions des nombreux utilisateurs.

Explications :
Dès l'ouverture du fichier, dans une form d'identification, l'utilisateur saisie son login et son mot de passe.
Ensuite, "la macro" va lire dans une feuille du fichier dans des cases pour vérifier que l'identification est correcte.
Puis ensuite, il ne va s'afficher dans le classeur que la feuille correspondante à l'utilisateur loggé.
Pour ce faire, j'utilise les fonctions xlSheetVeryHidden et xlSheetVisible (c'est indispensable, comparé au .Visible = True ou False perméable)
...enfin j'essaie des les faire marcher de façon fiable à coup sur!

Car ca marche une fois sur deux.
Mon code est pas du tout optimal, j'en suis conscient et ca doit venir de ça.
Néanmoins, c'est super important, donc si pous pouviez m'éclairer sur mes lacunes...

Voila la partie de code incriminée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

' Début du code ' On autorise l'affichage de cette feuille pour le traitement des mots de passe Sheets("Mdp").Visible = xlSheetVisible Sheets("Mdp").Select ... ' Si identification ok ThisWorkbook.Windows(1).Visible = True '(...False avant) nombre = ActiveWorkbook.Sheets.Count i = 0 For var_boucle = 1 To nombre Step 1 nom_feuille = Range("K31").Offset(i, 0).Value If nom_feuille <> "" Then Sheets(nom_feuille).Visible = xlSheetVeryHidden End If i = i + 1 Next var_boucle ' Et en plus Sheets("TOTAL").Visible = xlSheetVeryHidden Sheets("TOTAL MENSUEL").Visible = xlSheetVeryHidden ' On charge la feuille correspondant à l'utilisateur sélectionné ' LA SEULE QUI DOIT S'AFFICHER Sheets(TxtNom.Text).Visible = xlSheetVisible ... ActiveWindow.WindowState = xlMaximized Unload Usf1 ' Fin du code

---

Et ca marche pas terrible. J'ai essayé d'autres manières, mais c'est pas mieux...Suivant l'ordre de mes feuilles dans la colonne lue et l'ordre des mes onglets, ça ne m'affiche pas toujours les mêmes feuilles.
Il reste quasiment tout le temps des feuilles qui ne devraient absolument pas s'afficher.
Et des fois la ligne :

Code:

---

Sheets("TOTAL").Visible = xlSheetVeryHidden

---

ne fonctionne pas...

Donc c'est pas top du tout :( ...Si vous aviez une solution!
Merci d'avance.

Essaie de mettre DoEvents après chaque modif de la propriété "visible"

Code:

---

1 2 3 4

If nom_feuille <> "" Then Sheets(nom_feuille).Visible = xlSheetVeryHidden DoEvents '......

---

Tu dis

sur combien de classeur travaille tu ..? et sur quels classeur sont tes différentes feuilles ?

Pour tes questions :
Je travaille sur un seul classeur.
Toutes mes feuilles sont donc dans le même classeur.

Cela marche mieux avec le DoEvents, c'est sans conteste. Mais il reste toujours une feuille qui s'affiche et qui ne devrait pas s'afficher (la dernière de mon tableau contenant le nom des feuilles)
Je teste en modifiant légérement ma boucle mais c'est pas mieux pour l'instant. Je cherche.


Ah oui...Dsl pour les balises de codes...

ben par exemple cela c'est pas terrible :

Code:

---

1 2	nom_feuille = Range("K31").Offset(i, 0).Value

---

range sans rien devant.. pointe sur la feuille active du classeur actif au moment de l'exécution...

prefixe le avec classeur et feuille..

Code:

---

1 2 3

nom_feuille = ThisWorbook.sheets("Mafeuille").Range("K31").Offset(i, 0).Value

---

la aussi :

Code:

---

nombre = ActiveWorkbook.Sheets.Count

---

ben suivant comment tu lance ta macro ... le classeur actif n'est pas forcément celui contenant la macro... utilise plutôt ..

Code:

---

nombre = ThisWorkbook.Sheets.Count

---

Tu as bien raison, c'est vrai que c'est beaucoup plus clair à chaque fois

Ce que j'avais mis en tout début de l'événement, pour pallier au problème que tu décrit, c'est :

Code:

---

1 2 3

Sheets("Professeurs").Visible = xlSheetVisible Sheets("Professeurs").Select

---

Mais c'est vrai que c'est pas du tout optimal...

Et voila aussi, parfois il me sort lors de l'exécution :
Erreur d'exécution '1004'
Impossible de définir la propriété Visible de la classe Worksheet.
au moment de l'exécution de la ligne :

Code:

---

ThisWorkbook.Sheets(nom_feuille).Visible = xlSheetVeryHidden

---

Essaie de mettre le DoEvents avant la ligne (je l'ai toujours mis après mais lors d'une réponse, le gugus s'est trompé - par rapport à ma réponse et l'a placé avant... et il était ravi parce que ça réglait son pb) (!)
Sans garantie, pas testé, sur la seule foi d'une expérience inattendue :mouarf:

ton classeur ou tes feuilles ne sont pas protégés par un mot de passe...?

Rebonjour,

La dernière remarque de bbil est très pertinente. Effectivement, chacune de mes feuilles est protégé par un mot de passe (le même pour toutes les feuilles). Seules les cellules dévérouillées sont sélectionnables.

J'avais rencontré ce problème déjà quand j'écrivais avec la macro dans une feuille protégée. J'avais pensé à déprotéger la feuille avant et la protéger de nouveau après les modifications.

Voila le changement que j'ai apporté pour mon problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

nombre = ThisWorkbook.Sheets.Count i = 0   For var_boucle = 1 To nombre Step 1 nom_feuille = ThisWorkbook.Sheets("Professeurs").Range("K31").Offset(i, 0).Value If nom_feuille <> "" Then Sheets(nom_feuille).Unprotect "XX" ThisWorkbook.Sheets(nom_feuille).Visible = xlSheetVeryHidden DoEvents Sheets(nom_feuille).Protect Password:="XX" End If i = i + 1 Next var_boucle

---

Malheureusement j'ai toujours mon erreur d'exécution 1004, la même. En regardant bien les tests que je fais, l'erreur se produit seulement sur la dernière feuille de mon tableau (toujours cette dernière). Et indifféremment du nom de la feuille.(j'avais changé l'ordre des feuilles pour voir)
Cependant cela m'a permis de résoudre un autre problème de recherche dans une autre fonction. C'et déjà ça de corrigé !

Mais je sais pas si la correction que j'ai apportée est valide...

Et le fait de mettre le DoEvents avant la ligne

Code:

---

ThisWorkbook.Sheets(nom_feuille).Visible = xlSheetVeryHidden

---

ne change strictement rien.

bien "manuellement" par le menu d'excel.. essai de masquer toutes tes feuilles... et tu comprendras..;)

Citation:

---

Et le fait de mettre le DoEvents avant la ligne..... ne change strictement rien.

---

Je me disais bien aussi (!) ici :(

Bah je sais bien qu'en utilisant la fonction xlSheetVeryHidden cela permet justement que les feuilles masquées par le programme ne s'affichent pas dans le menu excel Formats>Feuilles>Afficher.
C'est ce que je recherche, sinon, j'aurai seulement utilisé la fonction .Visible=True or False.
Seul un seul compte a accès à toutes les feuilles, mais ça ça marche bien.

Mais autrement, j'ai du mal à saisir la portée de ta dernière remarque...:koi:

Et j'ai toujours mon erreur 1004...:mur:

Citation:

---

Envoyé par snip_ernet

...
Mais autrement, j'ai du mal à saisir la portée de ta dernière remarque...:koi:

Et j'ai toujours mon erreur 1004...:mur:

---

et tu l'as fait l'essai de masquer "manuellement " TOUTES les feuilles ?.

C'est bon, je viens de faire ton test...
Encore une remarque pertinente, bbil. Je n'aurai pas pu m'en rendre compte autrement en plus.

Je fais des petites modifs dans le code pour laisser toujours une feuille visible, et je vous tiens au courant. Mais je pense que cela devrait fonctionner...

Merci pour tout, ce problème est résolu. :D
Je n'aurai jamais pu m'en rendre compte tout seul, je n'ai pas assez de recul sur excel/vba. :traine:

Sinon, en faisant ma manip de déprotéger/reprotéger, il me reprotège la feuille en sélectionnant les deux check-box par défaut qui sont :

• Sélectionner les cellules verrouillées.
• Sélectionner les cellules déverrouillées.

Comment faire dans le code :

Code:

---

Sheets(nom_feuille).Protect Password:="XX"

---

pour qu'il sélectionne seulement la check box :

• Sélectionner les cellules déverrouillées.

Comment spécifier cet attribut ?

Citation:

---

Envoyé par snip_ernet

..

Code:

---

Sheets(nom_feuille).Protect Password:="XX"

---

pour qu'il sélectionne seulement la check box :

• Sélectionner les cellules déverrouillées.

..

---

Code:

---

1 2 3

Sheets(nom_feuille).Protect Password:="XX" Sheets(nom_feuille).EnableSelection = xlUnlockedCells

---

Merci pour la ligne de commande.
Cela marche bien, seules les cellules déverrouillées sont sélectionnables, mais cela à un effet inattendu.
Sur certaines feuilles, le contour de sélection de la cellule n'apparaît plus (??). On peut cependant modifier son contenu.
Mais le problème n'apparaît pas sur toutes les feuilles. Je fais des tests pour comprendre un peu...