Mot de passe VBA à la fermeture

Bonjour.

A chaque exécution du code ci-dessous, une fenêtre me demandant le mot de passe du projet VBA m'est demandée, comment faire pour résoudre ce bug ?

Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton4_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Workbooks.Open Filename:= _ "\\Planning\Classeur2.xlsm", Notify:=False, ReadOnly:=True Workbooks("Classeur1.xlsm").Sheets("Planning " & Year(Now())).Range("A1:AS58").Value = Workbooks("Classeur2.xlsm").Sheets("Plan de charge " & Year(Now())).Range("A1:AS58").Value Workbooks("Classeur1.xlsm").Sheets("Planning " & Year(Now()) + 1).Range("A1:AS58").Value = Workbooks("Classeur2.xlsm").Sheets("Plan de charge " & Year(Now()) + 1).Range("A1:AS58").Value Workbooks("Classeur2.xlsm").Close False Unload UserForm3 MsgBox "Mise à jour réussie" Application.Calculation = xlCalculationAutomatic Application.Calculate Application.EnableEvents = True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

---

Bonjour,

Citation:

---

Mot de passe VBA à la fermeture

---

d'après ton code, c'est à l'ouverture, mais même principe à la fermeture
si j'ai compris, il suffit de lire l'aide pour comprendre

Citation:

---

Référence du développeur Excel
Workbooks.Open, méthode
Afficher tout
Masquer tout
Cette méthode ouvre un classeur.
Syntaxe

expression.Open(FileName, MettreÀJourLiens, LectureSeule, Format, MotDePasse, MotDePasseÉcritureRes, IgnorerLectureSeuleRecommandée, Origine, Séparateur, Modifiable, Notifier, Convertisseur, AjouterAuxDerniersFichiersUtilisés, Local, ChargementEndommagé)

---

Citation:

---

MotDePasse Facultatif Variante Chaîne qui contient le mot de passe requis pour ouvrir un classeur protégé. Si cet argument est omis alors que le classeur requiert un mot de passe, l'utilisateur est invité à fournir ce mot de passe.

---

donc, ajouter l'argument "Password:="ton mot de passe""
ou WriteResPassword:="ton mot de passe"

Merci casefayere ! C'était bien ça !

Code final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton4_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Workbooks.Open Filename:="\\Planning\Classeur2.xlsm", Notify:=False, ReadOnly:=True, Password:="password" Workbooks("Classeur1.xlsm").Sheets("Planning " & Year(Now())).Range("A1:AS58").Value = Workbooks("Classeur2.xlsm").Sheets("Plan de charge " & Year(Now())).Range("A1:AS58").Value Workbooks("Classeur1.xlsm").Sheets("Planning " & Year(Now()) + 1).Range("A1:AS58").Value = Workbooks("Classeur2.xlsm").Sheets("Plan de charge " & Year(Now()) + 1).Range("A1:AS58").Value Workbooks("Classeur2.xlsm").Close False Unload UserForm3 MsgBox "Mise à jour réussie" Application.Calculation = xlCalculationAutomatic Application.Calculate Application.EnableEvents = True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

---