Discussion :

[Mytå_Qc]

Salut le forum

Surement impossible à réaliser, mais je pose quand même la question.

Comment récuperer le mot de passe saisi en Protection/Déprotection ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Protection()
Dim Reponse As Dialog
 
Set Reponse = Application.Dialogs(xlDialogProtectDocument)
 
Reponse.Show
 
'Comment récupération ici, le mot de passe saisi ?
 
End Sub

Mytå_Qc

[ucfoutu]

Bonjour,

Drôle de question !

Ou c'est toi qui a saisi le mot de passe (et il te suffit de stocker dans une variable ta saisie)

Ou ce n'est pas toi.... et tu n'as pas à t'en mêler !

Edit : sauf dans un cas de protection (stockage en mémoire uniquement des mauvaises tentatives ===>> fermeture de l'appli au bout d'un certain nombre (3, par exemple) ===>> obligation d'intervention d'un responsable (qui connait alors les mots qui ont été tentés sans succès) ===>> décision (si mots trop rapprochés du bon mot) de changer le mot de passe sans attendre.

[Singular]

Y a pas moyen, bien sur.

Sinon ça serait trop facile de connaître les mots de passe de tout le monde!

[kiki29]

Jour Bon, peut-être en faisant une recherche sur Gog : Keylogger

[Mytå_Qc]

Salut le forum

Le but étant de modifier les authorisations sur 7 feuilles d'une même classeur,
en évitant de le faire manuellement et cela sur une dizaine de classeur semblable.

Tous les fichiers ont le même mot de passe en protection et je le connais bien sur.

Merci si vous avez une alternative de solutions.

Myta_Qc

[SilkyRoad]

bonsoir cher Myta

Merci si vous avez une alternative de solutions.

Pour ma part, je remplacerais Dialogs(xlDialogProtectDocument) par un UserForm


bonne soirée
michel

[Mytå_Qc]

Re le forum

Avec un Userform, je n'ai pas accès aux authorisations.

Je vais le faire manuellement.

Merci à tous

Mytå_Qc

[alsimbad]

si c'est pour enlever et remetre une protection que tu as mise en place, il te suffit d'utiliser

Code :

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

1
2
3
4
5
 
mafeuille. protect motdepasse
mafeuille.unprotect motdepasse
ou avec une boucle
sheet(i).protect motdepasse