Discussion :

[POUY64]

Bonjour à tous
VB – EXCEL écrire un mot de passe à l’intérieur d’une macro

J’ai fouillé un peu partout, mais je n’ai pas trouvé, je dois dire que je ne suis pas très bon en VB.

mon problème

J’ai un fichier qui est utilisé par plusieurs personnes ce fichier comporte des boutons qui permettent la saisie, l’impression, l’affichage des filtres …., et certaines cellules sont protégés.

Quand j'ulilise l'éditeur de macro pour mettre un mot de passe il n’est pas pris en compte, La feuille est bien protégée, mais sans le mot de passe.
Je ne veux pas que les personnes sortent la protection. (Les personnes qui font la saisie ne connaissent pas le langage VB).

A l’exécution des macros le mot de passe doit être sortie puis remis en fin de macro.
La ligne actuelle avec l’éditeur pour la protection de la feuille est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
‘Activation de la protection de l’onglet
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

Par quoi je peux la remplacer :

Je voudrais savoir si quelqu’un pourrai m’aider pour écrire la ligne de code qui permet de le faire.

Je voudrais faire la même chose pour protéger le classeur (pas à l’ouverture, mais sur l’environnement dans Option –Protection – Protéger le classeur).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Activation Protection du classeur
    ActiveWorkbook.Protect Structure:=True, Windows:=False

Je vous remercie par avance à tous.

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
‘Activation de la protection de l’onglet 
ActiveSheet.Protect Password:="MonMotDePasse" DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True

pour déprotéger

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.UnProtect Password:="MonMotDePasse"

Pareil pour le classeur

[jmfmarques]

Pour Pouy64 :

Gardes toutefois à l'esprit :
1) que tu peux oublier ton mot de passe (celà arrive)
2) que tu ne te protègeras ainsi que des "enfants de coeur"...

Vois donc le sujet :

http://www.developpez.net/forums/viewtopic.php?t=445946

C'est très instructif.

[bidou]

des enfants de coeur patient alors, car sur des mots de passe bien choisi il lui faut quelques jours pour faire sauter le mot de passe

[jmfmarques]

Tu crois vraiment celà ?


Poses la question à vautour29...

[bidou]

Evidemment. Les techniques d'attaques / défense de mot de passe sont toujours les mêmes. Si tu prends un mot de passe de 24 caractères contenant des minuscules, des majuscules des chiffres et de la ponctuation ca va être autrement plus long que si le mot de passe est "médor"

[jmfmarques]

Le "big" problème est que Microsoft gère ses mots de passe de façon curieuse et quelque peu innattendue.... et que leur longueur et les caractères qu'ils peuvent contenir n'ont plus grand chose à voir...

[POUY64]

Cher Ami bonjour,
Je sais bien que les personnes qui veulent rentrer, rentrerons, mais le but c'est de les empéchés de modifier la mise en page et les formules.
Quand il font un clic sur une cellule vérouillée, ils ont le message d'aller dans Option et de sortir la protection.
Merci pour ta réponse, elle me convient trés bien et elle fonctionne.
merci beaucoup et à trés bientôt.
cordialement.