Protection feuille par 2 mots de passe

  • Initiateur de la discussion Initiateur de la discussion Mi_
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

Mi_

Guest
Bonjour le forum,

A cause d'une utilisation des feuilles de mon classeur par deux profiles, 'utilisateur' et 'superviseur', j'ai besoin de protéger les feuilles par deux mots de passe.

La feuille comporte une plage (disons B2:C3) dédiée au superviseur.

Donc l''utilisateur' doit avoir accès par mdp1 à la feuille entière sauf à la plage B2:C3.

Le 'superviseur' doit avoir accès par mdp2 seulement à la plage B2:C3.

Comment faire ? Merci pour toute idée.

Cordialement,
Mi
 
🙂
Salut

A premiere vue c'est pas possible
A ta place je ferais un fichier pour chaque utilisateur, tu peux faire tous les calculs possible et donc de maitriser les infos a communiquer

Bonne chanche

Si possible envoi un fichier pour essai 😉 😉
 
Bonjour ! si c'est possible ! (enfin je pense !!

regarde ce que j'ai toruvé :

Code:
Sub protectiosn()


'   protège la plage nommée celine A1:C3 avec mdp 'bla''
    ActiveSheet.Protection.AllowEditRanges.Add Title:='Celine', Range:=Range( _
        'A1:C3'), Password:='bla'
        
'   protège la plage nommée bob A9:C12 avec mdp 'bob''
    ActiveSheet.Protection.AllowEditRanges.Add Title:='Bob', Range:=Range( _
        'A9:C12'), Password:='bob'
        
'   protège la feuille avec le mdp'
    ActiveSheet.Protect ('coucou')
        
End Sub

je met un mot de passe pour chaque plage de chaque tuilistauer et je protege la feuille .

J'ai enregsitré cette macro à partir de 'Outils, protectiosn , permettre aux utilisateurs de modifier les plages.'

vois ce que tu peux bidouiller avec ça !!

@+ Céline
 
Bonjour à tous,

Ce pb a déjà été traité par _Thierry: faudrait fouiller avec le mot password.

Pour le superviseur qui ne peut travailler qu'en B2:c3 tu peux essayer
sheets(1).scrollarea='B2:C3'

et pour 'délivrer'
sheets(1).scrollarea=''

Pour l'autre je vais organiser des fouilles dans mon grenier perso mais...

Bon appétit

Michel
 
Bonjour Michel, Celine, Baside

Oui tout à fait Michel, d'ailleurs bien que je me fasse un peu rare sur le Forum, j'en ai parlé encore il y a pas si longtemps dans ce Fil où j'ai mis des liens :

Lien supprimé

Par contre oui, pour Céline, en effet ce sont des nouvelles fonctionnalités Office 2002 et 2003...

Bon Appétit
@+Thierry
 
Bonjour à tous et merci de votre aide,

En effet je galérais sous Excel 2000, ne sachant pas que l'option 'Permettre aux utilisateurs de modifier les plages' n'existe que sous Excel 2002 & 2003.

Amicalement,
Mi
 
Bon jour Mi_ et le forum,

Si la question était bien n'utiliser qu'une plage de cellules ou bien toutes sauf cette dernière, en fonction de deux mots de passe, il est possible de faire très simple meêm avec des versions antérieures à Excel 2000.
Voici un exemple, avec les mots de passe en clair (toto et titi) ainsi que le mot de passe de la feuille (tata) et un bouton pour autoriser le scroll, au cas où.
Par défaut la feuille ne permet rien (voir code dans 'Open' de Thisworbook), à part de saisir les mots de passe.
Si le mot de passe 'Superviseur' est correctement saisi, seules les cellules B2 à C3 sont urilisables (utilsiation de ScrollArea).
Si Si le mot de passe 'Utilisateur' est correctement saisi, seules les cellules B2 à C3 ne sont pas utilisables.

En espérant que cela ne fait pas double emploi avec ce qui précède.
 
Je joins ce que j'ai réussi à faire avec la solution de JJC (mdp pour utilisateur d'une plage, mdp pour superviseur du reste de la feuille, mdp pour la feuille entière, avec auto-verouillage au pass admin au lancement du fichier et userform pour entrer le mdp).

Merci JJC B)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
17
Affichages
478
Retour