VBScript включить редактирование в файле Excel и сохранить как

Question

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

У меня есть приведенный выше код для создания копии файла в SharePoint. Я могу открыть файл, но он не делает копию, потому что файл открывается в режиме только для чтения. Я не могу понять, как использовать метод ActiveProtectedWindow.edit здесь, чтобы успешно достичь моей цели.

Answer 1

Может быть, что-то вроде этого:

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