Microsoft 365 Mise jour fichiers avec mot de passe

[cmdavid]

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]

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]

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

 

[cmdavid]

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]

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]

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]

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]

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 :

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

 

[cmdavid]

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]

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]

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

 

[sylvanu]

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.