Déprotection d'un classeur pour ouverture

Résolu
Signaler
Messages postés
11
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 juin 2011
-
Messages postés
11
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 juin 2011
-
Bonjour,

Voici mon problème, chaque matin je lance un macro qui ouvre divers classeurs et fichiers, fait les mises a jour et les réenregistrent

sur 2 classeur j'ai un mot de passe (pour l'écriture) pour que les utilisateurs ne puissent ouvrir qu'en lecture seule.
La macro me demande donc via une msgbox de saisir le mot de passe.

J'aimerais qu'elle le fasse en automatique afin que la macro tourne sans que je sois présent.

Ma fonction d'ouverture est :
Workbooks.Open Filename:= _
                            "\Chemin d'acces\Nom du fichier.xls", UpdateLinks:=3

arrivé a ce stade la msgbox s'ouvre pour demander le mot de passe.
cela fait plusieurs jours que je cherche partout comment lui dir de mettre toute seule mon mot de passe par exemple "toto"

Pouvez vous m'aider ?

merci d'avance
  

11 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Essaie comme ceci

Workbooks.Open Filename:= "NomDuFicher.xls", Password:=" TonPassWord ", WriteResPassword: ="TonPassWord", IgnoreReadOnlyRecommended:=True

Attention de mettre le ou les bons passwords où il faut.

MPi
Messages postés
11
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 juin 2011

YESSSSSSSSSSSSSSSSSSSSSSSS.....
Ya  pas t'est une bete !
ça marche super.

2 semaines de lectures de forum, de recherches tous azimuts et grace a toi, je suis sorti d'affaire

1 million de MERCI
bonne journée
CHL
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Re,
bah c'est ce que je disais... les 5 et 6 eme parametres de .open

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
11
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 juin 2011

Désolé julien, mais je n'avais pas compris que dans le 6eme parametre il fallait remettre le mot de passe et ajouter IgnoreReadOnlyRecommended:=True

Mais merci
Et un IMMENSE MERCI à tous ceux qui se sont donné la peine de me répondre et d'essayer de m'aider a résoudre mon problème
chl
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
regarde si les 5 et 6 ème parametre de Workbooks.Open ne peuvent t'aider.

Function Open(Filename As String, [UpdateLinks], [ReadOnly], [Format], [Password], [WriteResPassword], [IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru]) As Workbook

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
ou meme le parametre [ReadOnly]

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
11
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 juin 2011

J'ai deja essayé mais je n'y suis pas arrivé !!!!!!!
mais merci quand meme
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Workbooks.Open Filename:= _
                            "\Chemin d'acces\Nom du fichier.xls", UpdateLinks:=3, WritePassword:="toto"
Ca ne fonctionne pas ? Bizarre

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
11
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 juin 2011

Merci mais non, il me marque avant execution de la macro argument nommé introuvable !
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Mais comment as-tu protégé ton classeur ?
Carrémment à l'ouverture ce mot de passe est demandé ?
N'est ce pas plutôt une feuille (ou une plage de cellule) que tu as protégé ?

@++

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA
Messages postés
11
Date d'inscription
vendredi 10 novembre 2006
Statut
Membre
Dernière intervention
7 juin 2011

Non non, j'ai fait fichier enregistrer sous-outils-option generales-mot de passe pour la modification "toto" et c'est tout
!