Importer xlsx en lecture seul

Bonjour,

Comment peut-on faire pour importer en VBA un fichier xlsx qui est protégé en écriture sans avoir le message :

Ça ne marche pas avec : Application.DisplayAlerts = False

Application.ScreenUpdating = False
Application.DisplayAlerts = False
   Cheminsource = Worksheets("Options").Range("C19").Value & "\"
   Fichiersource = Worksheets("Options").Range("C20").Value
    Range("B6:G6").Select
    Workbooks.Open Filename:=Cheminsource & Fichiersource, UpdateLinks:=3
    Sheets(Array("Onglet1", "Onglet2")).Select
    Sheets("Onglet1").Activate
    Sheets(Array("Onglet1", "Onglet2")).Copy Before:=Workbooks("MaMacro.xlsm").Sheets("Options")
    Windows("LeFichier.xlsx").Activate
    ActiveWindow.Close
    Sheets("Accueil").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Merci pour votre aide

Hoo

C'est bon je viens de trouver je donne la solution qui pourrait aider d'autres personnes comme moi :)

Workbooks.Open Filename:=Cheminsource & Fichiersource, ReadOnly:=True

Bonjour et Exacte et dans ton cas tu ajoutes tes options l'une derrière l'autre :

Workbooks.Open Filename:=Cheminsource & Fichiersource, ReadOnly:=True UpdateLinks:=3