Изменить файл Доступ к книге Excel для чтения и записи через MS Acces

Question

Я пытаюсь изменить доступ к файлу Excel с чтения только на чтение / запись через MS Acces, но он остается только для чтения.

Код:

Private Sub Knop11_Click()
Dim formaat As Integer
Dim wp As Integer


Dim wb As Object

formaat = Forms!Test!formaat.Value
wp = Forms!Test!wp.Value

Set objExcelApp = CreateObject("Excel.Application")
Set wb = objExcelApp.Workbooks.Open("D:\codetest\Map1")

Dim ws As Object
Set ws = wb.Sheets(1)

ws.Cells(1, 1).Value = formaat
ws.Cells(1, 2).Value = wp

wb.ChangeFileAccess Mode:=xlReadWrite

wb.Save
Set wb = Nothing

End Sub

Заранее спасибо!