A voir également:
- Code d'accès sur chaque feuille Excel
- Code ascii - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Acces rapide - Guide
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
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"
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
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