A voir également:
- Code d'accès sur chaque feuille Excel
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Formule excel - Guide
- Code asci - Guide
- Si et excel - Guide
4 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié le 16 sept. 2020 à 10:27
Modifié le 16 sept. 2020 à 10:27
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
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
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
16 sept. 2020 à 10:27
16 sept. 2020 à 10:27
Re,
voici un premier fichier, à tester.
Le mot de passe est MDP
https://mon-partage.fr/f/9xKFFku3/
voici un premier fichier, à tester.
Le mot de passe est MDP
https://mon-partage.fr/f/9xKFFku3/
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
16 sept. 2020 à 11:26
16 sept. 2020 à 11:26
à quel moment il y a une erreur ?
Alt+F11 pour ouvrir l'éditeur ou clic droit sur l'onglet accueil et "visualiser le code"
Alt+F11 pour ouvrir l'éditeur ou clic droit sur l'onglet accueil et "visualiser le code"
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
>
Aurore
16 sept. 2020 à 12:12
16 sept. 2020 à 12:12
Tu as renommé les onglets ?!
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
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
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
16 sept. 2020 à 12:45
16 sept. 2020 à 12:45
Cela vient peut-être de ta version Office.
Quel est ton type d'Excel ?
Quel est ton type d'Excel ?
Aurore
>
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
16 sept. 2020 à 13:15
16 sept. 2020 à 13:15
Excel 2016
Ca peut être ca le problème?
Ca peut être ca le problème?
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
165
>
Aurore
16 sept. 2020 à 13:30
16 sept. 2020 à 13:30
Le fichier que tu as partagé tout à l'heure était en .xls (version antérieur d'Excel)
Je suis moi-même sur Office 2016 et aucun bug !
Je suis moi-même sur Office 2016 et aucun bug !
Aurore
>
Yoyo01000
Messages postés
1639
Date d'inscription
samedi 2 février 2019
Statut
Membre
Dernière intervention
7 mars 2022
16 sept. 2020 à 13:31
16 sept. 2020 à 13:31
Je vais essayer sur un autre ordinateur et te tiens au courant.
Un grand merci pour ta patience
Un grand merci pour ta patience
