Microsoft 365 Mise jour fichiers avec mot de passe

cmdavid · 22 Février 2020

Bonjour,
je cherche a faire fonctionner mes 3 fichiers joints, dans les conditions ou les fichiers 'COM' et 'BASE' ont un mot de passe a l'ouverture et que lorsque je change la date du fichier 'DG', celui -ci me demande le mot de passe du fichier "COM' - mot de passe : 1.
macro utilisée dans le fichier "DG":
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AT3,AT4:AW4]) Is Nothing Then Exit Sub
Dim etat As Boolean
With Application
.ScreenUpdating = False
.DisplayAlerts = False
etat = .AskToUpdateLinks
.AskToUpdateLinks = False
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1").Close True

.AskToUpdateLinks = etat
End With
ThisWorkbook.Save
End Sub

un grand merci pour votre aide.

sylvanu · 12 Mars 2020

Là vous fermer votre fichier :
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1").Close True

Méthode Workbooks.Open (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Essayez pour l'ouvrir :
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1")

cmdavid · 12 Mars 2020

vous allez avoir besoin de patience, je suis vraiment désolé. mais cela ne marche pas.

cmdavid · 30 Mars 2020

Bonjour Sylvanu,
J’espère que vous allez bien.
Bien compris ce que vous voulez que je fasses. maintenant quelle est la macro pour y parvenir et ou la mettre?

sylvanu · 30 Mars 2020

Bonjour,
Le plus simple à utiliser : Ouvrir les trois fichiers avec mot de passe, et à la fin les refermer. Comme déjà dit au post #10.
Ce que vous vous obstinez à refuser.

cmdavid · 30 Mars 2020

je ne refuse pas, je ne comprend pas ou mettre la macro dans le fichier COM?
Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1")

cmdavid · 31 Mars 2020

J'ai fait comme dans le post"10", et mis la macro : Workbooks.Open(Filename:=ThisWorkbook.Path & "\MMG Raport TBS - BASE.xlsm", Password:="1") dans le fichier COM.
cela me demande toujours le mot de passe !

sylvanu · 31 Mars 2020

Bonjour,
Ci joint deux fichiers. Les mettre sur votre bureau;
Ouvrez fichier Travail.
Le fichier1 est protégé par un mot de passe.Si vous cliquez sur le bouton le fichier s'ouvre.
Avec la simple macro :

VB:

Sub Ouvre()
    Workbooks.Open Filename:="fichier1.xlsm", Password:="1234"
End Sub

cmdavid · 31 Mars 2020

je vous remercie pour vos efforts. mais seul le fichier rapport DG doit avoir un bouton. le fichier Base lui doit toujours être fermé et protégé. je ne sais vraiment pas quoi faire pour que cela fonctionne.

sylvanu · 31 Mars 2020

Je vous le répète depuis le post #10.

le fichier Base lui doit toujours être fermé et protégé.

Alors votre problème est insoluble.
Pour accéder à Base il doit être ouvert et déprotégé.

cmdavid · 1 Avril 2020

comment expliquer que si le fichier Com n'a pas de mot de passe, cela fonctionne?

sylvanu · 1 Avril 2020

D'abord Bonjour de si bon matin,

S'il vous plait, relisez le post #4, je vous y explique le problème. Si COM n'est pas protégé, évidemment que cela fonctionne.

Microsoft 365 Mise jour fichiers avec mot de passe

cmdavid

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Méthode Workbooks.Open (Excel)

cmdavid

XLDnaute Occasionnel

cmdavid

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

cmdavid

XLDnaute Occasionnel

cmdavid

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

cmdavid

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

cmdavid

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Discussions similaires