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
- Voir mot de passe wifi android - Guide
- Mot de passe administrateur - Guide
- Trousseau mot de passe iphone - Guide
- Identifiant et mot de passe - Guide
- Mettre un mot de passe sur un dossier - Guide
4 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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
2926
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
4 octobre 2024
462
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
24601
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 novembre 2024
7 240
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,