Microsoft 365 Mise a jour de plusieurs fichiers excel avec mot de passe a l'ouverture

[cmdavid]

Bonjour,
j'ai 3 fichiers:
1. DG
2. BASE - avec mot de passe a l'ouverture (1)
3. COM - avec mot de passe a l'ouverture (1)

lorsque je change la date du fichier DG, il me demande le mot de passe du fichier COM. J'utilise une macro (voir ci-dessous) qui fonctionne pour le mot de passe du fichier BASE, j'aimerai que celle-ci fonctionne aussi pour le fichier COM.

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

Merci pour votre aide.

 

[cmdavid]

Bonjour,
se que je cherche a faire, est il impossible?
merci pour votre aide