Microsoft 365 Mise jour fichiers avec mot de passe

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cmdavid

XLDnaute Occasionnel
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.
 

Pièces jointes

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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
1 K
  • Question Question
Microsoft 365 Erreur de Fichier
Réponses
16
Affichages
2 K
Retour