Discussion :

[jpil71]

Bonjour,

Je dois réaliser un petit fichier pour le notation a plusieurs niveaux d'évaluateurs.
Ceux-ci ont accès chacun par un mot de passe à la partie qu'ils doivent évaluer.
Tous ceci ne me pose aucun soucis car j'ai crèè pour chacun d'un un accès avec module VBA.
Mais lorsque que je dois faire la synthese de chaque évaluateurs sur ma feuille dédiée à cela je suis bloqué par l'ouverture des feuilles à cause justement des mots de passes mis en places.

En effet lors de ma synthese j'utilise le principe du copier et coller en format pour rappatrier les données.

Donc y a t'il un moyen de faire apparaitre mes feuilles cachés (obligatoire pour utiliser mon code de rappartiement des données) sans rettaper tout les mots de passe....
je galere et c'est l'etape finale, mon codage est pas génial surement je debute et bidouille mais j'ai vraiment de cette derniere étape.

Je vous joins mon fichier voici les mots de passe utilisés pour la demo:
Autoevalution = toto
Evaluateur Ops = tutu
Evaluateur Fonct = tata
Eval Sog Soga = tete
Synthese = titi

La macro "CopieFormatDeux" me sert normalement a tout rappatrié mais bloque a cause des mots de passe mis en place

Merci à vous

Jpil71

[PMO2017]

Bonjour,

Essayez d'ajouter le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
Sub Demasque()
Dim S As Worksheet
Dim reponse
reponse = InputBox("Mot de passe administrateur")
If reponse <> "zaza" Then Exit Sub  'adapter le mot de passe
For Each S In ThisWorkbook.Worksheets
  S.Visible = xlSheetVisible
Next S
End Sub

[jpil71]

Merci beaucoup pour la solution qui marche parfaitement

[PMO2017]

Félicitations jpil71 pour avoir su adapter le bout de code à ton problème.
Je suis content d'avoir apporter de l'eau au moulin.
Bonne soirée et à plus.