Discussion :

[atk_49]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour,

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

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é)

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"

[atk_49]

Merci casefayere ! C'était bien ça !

Code final :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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