Fichier excel en lecture seule

Bonjour,

Voila tout d'abord je suis une bille en dev mais je voulais essayer ^^

Je veux ouvrir 2 fichiers xls sans lecture seule hors le probleme que j'ai, c'est qu'il s'ouvre en lecture seule.

Quelqu'un peut m'aider?

Merci

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim AppExcel
        Dim Fichier
        Dim Macro

        Macro = TextBox2.Text
        Fichier = TextBox1.Text
        AppExcel = CreateObject("Excel.Application")

        AppExcel.Visible = True
        'On Error Resume Next

        'ouvre le classeur
        AppExcel.Workbooks.Open(Fichier, 0, ReadOnly:=False)
        AppExcel.Workbooks.Open(Macro, 0, ReadOnly:=False)

        
               AppExcel.Workbooks(Macro).Sheets("computer").Copy(After:=AppExcel.Workbooks(Fichier))


 

    End Sub