ouvrire un fichier excel sans lecture seul

Bonjour mes amis du forums je dévelope une macro excel sous word qui ouvre un fichier excel pour que par la suite je copie des données de word vers ce fichier excel.
par contre le code que jutilise il mouvre le fichier excel en lecture seul sa me cause probléme je veux qu'il me l ouvre sans lecture seul .
voila l apartie du code qui traite cette comande:

Private Sub CommandButton1_Click()

Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\g218907\Bureau\test.xls")


End Sub