Vba VBScript在Excel文件中启用编辑&；另存为

我有上面的代码在SharePoint上创建文件副本。我可以打开该文件，但它不会复制，因为该文件是以只读模式打开的。我想不出如何使用ActiveProtectedWindow.edit方法来成功实现我的目标。

可能是这样的：

Set obj = CreateObject("Excel.Application")
obj.Visible = False
Set objwbk = obj.Workbooks.Open("File Link")
obj.DisplayAlerts = False
objwbk.SaveAs "C:\Data.xlsx"
Set obj1 = obj.Workbooks.Open("C:\Data.xlsx")
obj1.Visible = True

---

已经尝试过objwbk.Application.ProtectedViewWindows.Count给出0&I get file not accessible错误

Set obj = CreateObject("Excel.Application")
obj.Visible = False
obj.DisplayAlerts = False

Set objwbk = obj.Workbooks.Open("File Link")
If objwbk.Application.ProtectedViewWindows.Count > 0 Then
    objwbk.Application.ActiveProtectedViewWindow.Edit
End If
objwbk.SaveAs "C:\Data.xlsx"
Set obj1 = obj.Workbooks.Open("C:\Data.xlsx")
obj1.Visible = True