XL 2016 Problème pour ouvrir en vba un fichier excel en mode protégé

[controlo]

Bonjour à tous ,

J'ai une macro professionnelle qui fonctionnait très bien jusqu'à maintenant .Elle consiste à ouvrir classeurs excel qui sont dans le même répertoire pour y lire les différentes données et vérifier si elles sont bonnes .Il est apparut un problème sur certains classeurs excel qui apparaissent en mode protégés :

Ce mode protégé me génère une erreur sur la ligne suivante : .Workbooks.Open "" & PN & fichier1

Je précise que les classeurs en question ne sont pas protégés par un mot de passe .

Avez -vous une idée pour contourner cette difficulté ? J'ai déjà jeter un œil sur les forums et essayé différentes solution mas aucunes pour l'instant n'est probante .Notamment j'ai essayé avec UNPROTECT et ca ne marche pas .

Merci pour votre aide .

 

[Usine à gaz]

Bonjour controlo,
Peut-être là :

Amicalement,
lionel,

 

[Phil69970]

Bonjour à tous

Un peu de lecture :

Qu’est-ce que le mode protégé ? - Support Microsoft

Découvrez ce qu’est le mode protégé et comment il peut vous protéger contre les logiciels potentiellement malveillants.

support.microsoft.com

@Phil69970

 

[controlo]

Bonjour et merci à Usine à gaz et Phil 69970 pour leurs réponses qui j'en suis désolé ne m'aides pas à résoudre mon problème .
Si d'autre ont des idées , je suis preneur .

​

 

[MJ13]

Bonjour à tous

Essaie d'enregistrer ton fichier au fomat Xls si il est dans un format supérieur et de l'ouvrir.

Sinon, teste avec Shell ("Explorer.exe " & NomF).

 

[controlo]

Bonjour MJ13,

J'ai essayé avec la méthode shell , mais je ne sais pas comment fermé le classeur avec cette méthode .

Merci pour ton aide.

 

[controlo]

MJ13 ,

Le classeur ouvert avec la méthode shell ne semble pas se comporter comme un classeur ouvert avec la méthode open , pour rappel je dois lire des données dans le classeur ouvert. c'est peut-être moi qui m'y prends mal ?

 

[MJ13]

Re

Sinon, essaie de t'inspirer d'un code de ce type qu'était Henry:

Workbooks.Open Filename:="C:\Temp\MonFichierExcel.xlsm"