XL 2021 Problème ouverture fichier sur feuille protégée

[treza88]

Bonjour à tous,

J'ai un fichier qui démarre sur une feuille entièrement protégée pour une utilisation uniquement en visualisation.
le seul problème est que j'ai ce message à l'ouverture du fichier :

J'ai bien essayer de masquer une colonne et de déverrouiller la cellule "A1", puis a l'ouverture dans "Private Sub Workbook_Open()"de faire un "ActiveSheet.Range("A1").Select".

voici le code :

Private Sub Workbook_Open()
ThisWorkbook.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ThisWorkbook.Protect
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveSheet.Range("A1").Select
End Sub

Mais j'ai toujours ce message qui s'affiche.

Quelqu'un aurait une idée pour résoudre le problème ?

 

[TooFatBoy]

Bonjour,

Et sans sélectionner la cellule A1 as-tu quand même le message d'alerte ?

As-tu essayé d'autoriser la sélection des cellules protégées ?

 

[treza88]

Bonjour TooFatBoy,

Sans sélectionner la cellule, oui j'ai quand même le message,car quand le fichier s'ouvre il sélectionne automatiquement une cellule qui est forcément protégée.

Sélectionner les cellules protégées, n'est pas une solution que choisir.

 

[TooFatBoy]

OK. Bonne chance à toi pour la suite.

 

[crocrocro]

Bonjour à tous,
TooFatBoy, je ne sais pas si tu as fait un test avec le code de treza88.
J'ai fait un test et je n'ai pas de message.
treza88, joins un fichier (même réduit) où le message apparait.

 

[TooFatBoy]

Salut crocrocro,
Non je n'ai pas fait de test. J'attendais un fichier...


[edit] Maintenant, oui, j'ai fait un test et effectivement, il n'y a aucun message d'alerte. [/edit]

 

[treza88]

Merci à vous deux de vous avoir pencher sur mon problème.

Effectivement, j'ai également fait un test avec un fichier vide, aucun message n'apparait.
J'étais persuadé que le seul fait de protéger la feuille entière, faisait apparaitre ce message.
Donc il faut que je cherche ailleurs.

Je sais que c'est très compliqué de trouver ce qui ne vas pas dans un fichier sans le tester.
Mais mettre le fichier, n'est pas possible, pour qu'il fonctionne correctement il a besoin d'autres fichier lier par Power Query.
Est ce que le problème viendrait de là, je n'en sait fichtre rien.

Mais en faisant des essais en supprimant toutes les macros (qui n'étaient pas en cause) et en déprotégeant les feuilles une à une avec enregistrement et réouverture du fichier.
J'ai trouvé la feuille qui posait problème, car ce n'était pas comme je le pensais la feuille active au démarrage.

Donc je dois supprimer complétement ou partiellement la protection de cette feuille qui doit subir au démarrage des transformations avec les liaison externes