XL 2016 Message lors de l'ouverture d'un fichier Excel

[Dem67]

Bonjour,

Je viens de travailler sur un fichier qui comporte des macro et des TCD. Lorsque je le ferme et que je souhaite l'ouvrir il me met le massage suivant :

J'ai apporté quelques modifications et depuis j'ai ce message... Pouvez vous m'aider afin que je n'ai plus ce message lors de l'ouverture ?

Avant je n'avais pas ce problème et j'aimerais éviter de refaire mon fichier du début. J'ai supprimé toutes les données...

 

[Lolote83]

Bonjour,
Ton VBA est protégé par MDP, impossible de lire du code pour savoir d'ou peu provenir le problème
@+ Lolote83

 

[Dem67]

Bonjour,
Ton VBA est protégé par MDP, impossible de lire du code pour savoir d'ou peu provenir le problème
@+ Lolote83

le MdP est Clarisse

 

[Dem67]

le MdP est Clarisse

Bonjour,

Je me permets de revenir vers vous à propos de mon souci avez-vous une solution?

 

[Lolote83]

Bonjour @Dem67,
Voici un lien qui pourrait t'aider
https://forum.excel-pratique.com/ex...actualisation-automatique-de-tcd-t100069.html
En fait, dans ton code, le fait de protéger tes feuilles "Saisie des règlements", "Paramètres" et "Récap annuel" semble poser un problème.
pour m'en convaincre, j'ai désactivé le code protection et tout semble alors rentrer dans l'ordre.

Sub Protection()
    'Sheets("Saisie des règlements").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    'Sheets("Paramètres").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    'Sheets("Récap annuel").Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

Donc, il faut creuser de ce coté là. Je ne vois pas vraiment.
Bon courage
@+ Lolote83