Code d'accès sur chaque feuille Excel
Aurore
-
Aurore -
Aurore -
Bonjour,
Dans mon fichier Excel qui représente le calendrier 2021 des heures travaillées des salariés, j’ai une feuille par professionnel afin de faire la synthèse mois par mois.
Chaque feuille est nominative.
Je souhaite que les professionnels ne voient pas les feuilles des autres collègues et que la feuille s’ouvre avec un code.(Et que toutes les feuilles s’ouvrent avec un autre code pour la responsable)
J’ai vu une macro qui me permettait de mettre ce système en place mais impossible de l’appliquer.
Avez vous une idée pour m’aider?
https://mon-partage.fr/f/Jw6p8Ogj/
Dans mon fichier Excel qui représente le calendrier 2021 des heures travaillées des salariés, j’ai une feuille par professionnel afin de faire la synthèse mois par mois.
Chaque feuille est nominative.
Je souhaite que les professionnels ne voient pas les feuilles des autres collègues et que la feuille s’ouvre avec un code.(Et que toutes les feuilles s’ouvrent avec un autre code pour la responsable)
J’ai vu une macro qui me permettait de mettre ce système en place mais impossible de l’appliquer.
Avez vous une idée pour m’aider?
https://mon-partage.fr/f/Jw6p8Ogj/
Configuration: Windows / Edge 85.0.564.51
4 réponses
-
Bonjour,
J’ai vu une macro qui me permettait de mettre ce système en place
Ben oui, elle est ou?
Suite:
Pas Grave, regardez ici, vous avez ce qu'il vous faut:
https://www.commentcamarche.net/faq/37104-vba-excel-mot-de-passe-et-utilisateurs -
-
à quel moment il y a une erreur ?
Alt+F11 pour ouvrir l'éditeur ou clic droit sur l'onglet accueil et "visualiser le code"
-
Non, j'ai testé ton fichier.
J'ai rencontré le même problème hier en essayant une autre macro:
Private Sub Workbook_Open()
'Déclaration des variables
Dim i As Integer
Dim MonPassword As Variant
'Afficher la feuille calendrier dès l'ouverture du classeur
Worksheets("calendrier").Activate
'On va faire une boucle permettant de masquer toutes les autres feuilles
For i = 1 To Sheets.Count - 1
Sheets("User " & i).Visible = False
Next i
'On va récupérer le code ou mot de passedans une boite de type InputBox
MonPassword = InputBox("Veuillez entrer votre mot de passe pour accéder à votre feuille :", "Identification")
'On va réaliser les différents test
If MonPassword = "1234" Then
Sheets("User 1").Visible = True
Worksheets("User 1").Select
Range("A1").Select
End If
If MonPassword = "3820" Then
Sheets("User 2").Visible = True
Worksheets("User 2").Select
Range("A1").Select
End If
'Ouvrir toutes feuilles si mot de passe administrateur
If MonPassword = "2812" Then
For i = 1 To Sheets.Count
Sheets("User " & i).Visible = True
Next i
End If
End Sub
Y'a sans doute quelque chose que je ne fais pas bien
PS: j'avais bien nommé mes feuilles comme ci dessus
