Confidentialité Excel - Filtre Automatique via un mot de passe
Fermé
tutur09
Messages postés
25
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
15 octobre 2020
-
14 oct. 2020 à 13:16
tutur09 Messages postés 25 Date d'inscription vendredi 26 février 2016 Statut Membre Dernière intervention 15 octobre 2020 - 15 oct. 2020 à 08:17
tutur09 Messages postés 25 Date d'inscription vendredi 26 février 2016 Statut Membre Dernière intervention 15 octobre 2020 - 15 oct. 2020 à 08:17
A voir également:
- Confidentialité Excel - Filtre Automatique via un mot de passe
- Piratage facebook changer mot de passe - Guide
- Mettre un mot de passe sur un dossier - Guide
- Voir mot de passe wifi android - Guide
- Mot de passe administrateur - Guide
- Mot de passe oublié outlook - Guide
4 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
14 oct. 2020 à 19:14
14 oct. 2020 à 19:14
Bonjour,
en vba faire Alt F11 pur accéder à l'éditeur dans le module de la feuille mettre ceci pour empêcher d'afficher le lignes masquées:
Ensuite aller dans ThisWorkbook et mettre ce code:
enregistrer Classeur acceptant les macros
à l'ouverture une InPutBox va demander le mot de passe:
Case "1234" ' France
Case "1243" ' Espagne
Case "2134" ' Italie
Case "2143" ' Allemagne
Case "0000" 'admin
Tout cela est à adapter
Bonne programmation
--
@+ Le Pivert
en vba faire Alt F11 pur accéder à l'éditeur dans le module de la feuille mettre ceci pour empêcher d'afficher le lignes masquées:
Option Explicit 'empêche la sélection Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count >= 16384 Then [A1].Select End Sub
Ensuite aller dans ThisWorkbook et mettre ce code:
Option Explicit
Private Sub Workbook_Open()
Dim mdp As String
Rows("3:6").EntireRow.Hidden = True
mdp = InputBox("Entrer votre Mot de passe :", "Saisie Mot de passse", "1234")
Select Case mdp
Case "1234" ' France
Rows("3:3").EntireRow.Hidden = False
Case "1243" ' Espagne
Rows("4:4").EntireRow.Hidden = False
Case "2134" ' Italie
Rows("5:5").EntireRow.Hidden = False
Case "2143" ' Allemagne
Rows("6:6").EntireRow.Hidden = False
Case "0000" 'admin
Rows("3:6").EntireRow.Hidden = False
End Select
End Sub
enregistrer Classeur acceptant les macros
à l'ouverture une InPutBox va demander le mot de passe:
Case "1234" ' France
Case "1243" ' Espagne
Case "2134" ' Italie
Case "2143" ' Allemagne
Case "0000" 'admin
Tout cela est à adapter
Bonne programmation
--
@+ Le Pivert
JCB40
Messages postés
2891
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
9 juin 2024
461
14 oct. 2020 à 13:41
14 oct. 2020 à 13:41
Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNÉES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNÉES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement
tutur09
Messages postés
25
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
15 octobre 2020
14 oct. 2020 à 16:55
14 oct. 2020 à 16:55
Bonjour,
Voici le lien vers un exemple de fichier : https://www.cjoint.com/c/JJoo1LSfCX2
Lors de l'ouverture de fichier, je voudrais qu'un filtre s'opère pour que la France ne puisse voir que sa ligne sans pouvoir consulter les lignes de l'Espagne ou de l'Italie par exemple.
Merci,
Bonne journée,
Voici le lien vers un exemple de fichier : https://www.cjoint.com/c/JJoo1LSfCX2
Lors de l'ouverture de fichier, je voudrais qu'un filtre s'opère pour que la France ne puisse voir que sa ligne sans pouvoir consulter les lignes de l'Espagne ou de l'Italie par exemple.
Merci,
Bonne journée,
eriiic
Messages postés
24582
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 juin 2024
7 222
Modifié le 15 oct. 2020 à 07:02
Modifié le 15 oct. 2020 à 07:02
Bonjour,
Vu qu'il y a toujours moyen de bloquer une macro, toute protection sur excel est illusoire et devrait se limiter à éviter les mauvaises pratiques.
Si les données sont vraiment confidentielles, chaque utilisateur devrait avoir une version avec les seules lignes qui lui sont destinées.
Attention, tu as une proposition qui est remontée tout en haut suite à un +...
eric
Vu qu'il y a toujours moyen de bloquer une macro, toute protection sur excel est illusoire et devrait se limiter à éviter les mauvaises pratiques.
Si les données sont vraiment confidentielles, chaque utilisateur devrait avoir une version avec les seules lignes qui lui sont destinées.
Attention, tu as une proposition qui est remontée tout en haut suite à un +...
eric
15 oct. 2020 à 08:17
Merci beaucoup cela fonctionne parfaitement :)
Bonne journée,