Affichage fenêtre DEBUG

Bonjour

Je ne sais pas comment faire pour que la fenêtre DEBUG n'apparaisse pas après une erreur de mot de passe.

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect

Sheets("Feuille du jour").Select

ActiveSheet.ChartObjects("Graphique 10").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graphique 11").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graphique 6").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh

Sheets("Nat. par divisions").Select

ActiveSheet.Unprotect

ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh
ActiveSheet.ChartObjects("Graphique 4").Activate
ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh

Sheets("Nat. par divisions").Select

ActiveSheet.Protect Password:="Colonie2022"

Sheets("Feuille du jour").Select

ActiveSheet.Protect Password:="Colonie2022"

MsgBox "la mise à jour à été effectuée avec succès"

End Sub

Par avance merci

Bonjour Sylvain37

Vous venez de poster votre message avec un format qui empêche une bonne lisibilité

Merci de mettre votre code entre balises, avec le bouton </>

je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] qui vous aidera dans vos demandes et réponses sur ce forum
et notamment :

• Pour plus de lisibilité, utilisez la fonctionnalité pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).

Merci de votre compréhension

A+

Re,

Post modifié

Bonjour Sylvain37,

J'ai modifié vos post comme ils auraient dû être, merci d'y faire attention la prochaine fois

Comme vous mettez un mot de passe sur vos feuilles, il faut l'utiliser pour l'enlever

ActiveSheet.Unprotect  Password:="Colonie2022"

A+