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
Bonjour à Tous,

J'ai un fichier Excel avec une vingtaine de lignes correspondant à des marchés (France, Espagne, ...). D'un point de vue confidentialité, je voudrais que chaque marché ne puisse voir et modifier que sa ligne.

Est-il possible d'envisager de verrouiller le fichier avec un mot de passe par marché qui déclencherait un filtre automatique des lignes ?
Sinon faut-il passer par une macro ? Si oui, auriez vous un début de piste ?

Merci d'avance pour votre aide.

Bonne journée,
A voir également:

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
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:

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
3
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
Bonjour Le Pivert,

Merci beaucoup cela fonctionne parfaitement :)

Bonne journée,
0
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
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

0
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
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,
0
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
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

0