Discussion :

[Bernard67]

Bonjour le forum,

Je viens vers vous car je ne vois pas comment proceder pour avoir un raccourci clavier afin de rentrer le mot de passe dans le formulaire d'ouverture des fichiers verrouillés, qui demande le mot de passe ou "la lecture seule".
J'ai une 50 de fichiers verrouillés avec le meme mot de passe, et je souhaiterai pouvoir le rentrer au moyen d'un raccourci clavier. Avec Excel 2007, je ne vois pas comment faire.
Quelqu'un aurait il une solution ?

Merci

[pgz]

Bonjour.

Je comprends que tu veux t'aider d'une procédure VBA (dans un classeur XL) pour ouvrir d'autres classeurs protégés.

SI c'est bien cela, regarde la méthode Open de la collection Workbooks, elle permet d'envoyer le mot de passe.

Cordialement,

PGZ

[kiki29]

Salut,qqch comme

Code :

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

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Classeur2.xlsb", Password:="qjklqsjdflkc"

Il semble que l'enregistreur de macros 2007 ne génère pas le code correspondant à la protection/déprotection de fichiers Excel à l'ouverture par exemple,contrairement aux versions antérieures.

[Bernard67]

Bonjour kiki29, pgz, le forum;
Je vous remercie de vous pencher sur mon probleme.
Ce que je souhaite faire, c'est un raccourci clavier (genre copier/coller) qui va me coller le mot de passe dans le formulaire d'ouverture de chaque fichier qui me demande le mot de passe ou la " lecture seule ".
Effectivement en 2007 l'enregistreur de macro ne fait pas exactement ce que je lui demande.
Merci et bonne journée.

Pour contourner le probleme, est il possible en appuyant Ctrl + m de coller le mot "Toto"

[kiki29]

re,tu sélectionnes ton mdp puis Ctrl+V dans la boite de dialogue

[Bernard67]

Merci kiki29,
Je vais employer cette méthode, c'est plus simple.
Merci et bonne journée.

[Bernard67]

Bonjour le forum.

Une solution (Vista et Excel 2007) pour rentrer le mot de passe dans le presse-papier afin d'éviter de la taper à chaque fois.

Rentrer la macro de Pierrot93 :

Code :

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

1
2
3
4
5
6
7
8
9
'Code : Pierrot93
Sub Test()
'activer la reference Microsoft Forms 2.0 Object Library
‘Pour activer la référence => Editeur vba => barre de menu => outils => références 
Dim x As New DataObject, machaine As String
machaine = "xxxx"
x.SetText machaine
x.PutInClipboard
End Sub

ou de STephane :

Code :

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

1
2
3
4
5
6
7
8
9
10
‘voilà commentmettre du texte dans le presse-papiers
 
Dim strContenupressepapier$
Dim dobPressepapiers As DataObject
 
strContenupressepapier = "le contenu";
 
Set dobPressepapiers = New DataObject
dobPressepapiers.SetText strContenupressepapier
dobPressepapiers.PutInClipboard

Mettre l'une de ces 2 macros dans un module de "PERSONAL.XLSB"
puis cocher le raccourci clavier par exemple CTRL +m.

Il faut etre positionne sur une feuille Excel. Faire CTRL+m, ensuite cliquer sur le dossier à ouvrir, et dans le formulaire qui demande mot de passe ou lecture seule, faire CTRL+v
Et voilà, si cela peut servir ......
Bonne journée