Petit Challenge pour les passionnes d'Excel

Petit Challenge pour les passionnes d'Excel - VB/VBA/VBS - Programmation

Marsh Posté le 03-07-2006 à 03:02:06    

Bonjour a tous,
 
Je cherche a proteger des cellules Excel par un mot de passe... jusque la rien de bien insurmontable ! La ou ca se complique c'est que j'aurais besoin de proteger deux types de cellules avec deux mots de passe differents. Je m'explique : chacun des types de cellules doit etre ouvert par une personne differente. Je ne peux donc pas passer par la manip habituelle de desactivation du verrouillage des cellules puis d'activation de la protection de la feuille pour juste bloquer les cellules concernees... et je ne vois pas trop comment faire avec une macro et si cela est possible....
 
Si quelqu'un a une idee je suis preneuse parce que je ne trouve rien sur les forums concernant ce probleme  
 
Merci d'avance :)

Reply

Marsh Posté le 03-07-2006 à 03:02:06   

Reply

Marsh Posté le 03-07-2006 à 08:03:14    

Une idée qui me vient en premier:
-protèger toutes les cellules avec un mot de passe général et écrire une macro à l'ouverture du classeur pour autoriser les modifs seulement à l'aide des macros (il y a un exemple sur ce forum)
-faire un formulaire avec login, demande de mot de passe, puis un troisieme champ pour modifier la cellule suivant le login entré.
 
JM


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 03-07-2006 à 08:27:15    

Tu ne protège aucune cellule par le mot de passe conventionnel. Tu gère par les événements les changements en fonction du user (et si tu veux tu pêux effectivement ajouter un mot de passe supplémentaire par macro).
 

Reply

Marsh Posté le 04-07-2006 à 01:15:07    

Bonjour,
 
avec un useform et 2 textbox (Utilisateur et mot de passe associé) tu peux déclencher 2 macros personalisées
intégrer un contrôle de saisie sur les textbox vérifier si elles sont vides par exemple ...
 
Dim Wpass as string
Wpass = Txtpass.value
 
If Txtuser = "toto" and Wpass = Range("Pass1).value then procédure
ElseIf Txtuser = "roro" and Wpass = Range("Pass2).value then procédure
Else msgbox "erreur de Password"
exit sub
end If
 
Range(Pass1) et (Pass2) = 2 cellules d'une feuille titi qui est vérouillée par xlSheetVeryHidden
 
appeler le userform dans Workbook_Open
et prévoir une remise à blanc des textbox à l'initialise du userform
 
Si plusieurs utilisateurs, prévoir une petite base qui associe sous forme de tableau User et Password avec pourquoi pas autoriser au user de pouvoir modifier son password perso.
 
A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed