Сохранить копию файла Excel в SharePoint

Question

Я хочу использовать SaveCopyAs вместо функции SaveAs, чтобы сохранить исходный файл открытым.

Private Sub CommandButton6_Click()

Dim strName As String

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strName = wsA.Range("B5").Value
Worksheets("Sheet1").Unprotect Password:=XXXXXX
 If ActiveSheet.CheckBoxes.Count > 0 Then
    ActiveSheet.CheckBoxes.Visible = True
    ActiveSheet.CheckBoxes.Enabled = False
End If
Worksheets("Sheet1").CommandButton6.Visible = False
Worksheets("Sheet1").Protect Password:=XXXXXX
ThisWorkbook.SaveCopyAs Filename:="http://XXXXsharepoint pathXXX" & "/" & 
strName & ".xlsm"

    Worksheets("Sheet1").Unprotect Password:=XXXXXX
    Worksheets("Sheet1").CommandButton6.Visible = False
Worksheets("Sheet1").Protect Password:=XXXXXX

End Sub

Приведенный выше код дает мне ошибку 1004.