Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment savoir si un fichier contient un password

2 réponses
Avatar
andre.l'hoir
Bonjour,

J'aimerais savoir, par VBA, si un fichier contient un password.
Si oui, je ne fait rien, autrement, j'ouvre le fichier.

ex:

If fichier ne contient pas de password then
Ouvre le fichier
End if

Est-ce possible?
André

2 réponses

Avatar
michdenis
Bonjour André,

Ceci peut toujours t'aider :

On Error Resume Next
Set a = Workbooks.Open("c:a motdepasse", , , , "mds")

mds = mot de passe.

Si le mot de passe n'est pas valide, le classeur ne s'ouvre pas et
tu n'as pas de message d'erreur concernant le mauvais mot de
passe à cause de On error resume next et la procédure va
continuer de s'exécuter ....au besoin....


Salutations!



<andre.l' a écrit dans le message de news:
Bonjour,

J'aimerais savoir, par VBA, si un fichier contient un password.
Si oui, je ne fait rien, autrement, j'ouvre le fichier.

ex:

If fichier ne contient pas de password then
Ouvre le fichier
End if

Est-ce possible?
André
Avatar
andre.l'hoir
Bonjour,

Merci, cela fonctionne pour la plus part des fichiers sauf un. Le petit malin à
crypté et je pense qu'il a placé une macro que si le mot de passe est mauvais,
il ferme tous les fichiers Excel actuellement en mémoire.

Merci quand même.

André

In article <#, michdenis says...

Bonjour André,

Ceci peut toujours t'aider :

On Error Resume Next
Set a = Workbooks.Open("c:a motdepasse", , , , "mds")

mds = mot de passe.

Si le mot de passe n'est pas valide, le classeur ne s'ouvre pas et
tu n'as pas de message d'erreur concernant le mauvais mot de
passe à cause de On error resume next et la procédure va
continuer de s'exécuter ....au besoin....


Salutations!



<andre.l' a écrit dans le message de news:

Bonjour,

J'aimerais savoir, par VBA, si un fichier contient un password.
Si oui, je ne fait rien, autrement, j'ouvre le fichier.

ex:

If fichier ne contient pas de password then
Ouvre le fichier
End if

Est-ce possible?
André