Excel 解锁工作簿以进行编辑

我已经编写了一些代码来打开和激活SharePoint中的工作簿。这样我就可以保存对工作表的任何修改。当我尝试更新表单时，通知框打开，表示表单已打开

如何启用工作簿，以便将更新发送回工作簿

我的代码是：

Option Explicit

'Variables starting with "w" = Workbook
'Variables starting with 'x' = Worksheet

Dim wRequest As Workbook
Dim xRequest As Worksheet

Public Function SetVariables()

Set wRequest = Workbooks.Open("Sharepointpath/filename.xlsx")
Set xRequest = wRequest.Worksheets("Form1")

End Function

Private Sub UserForm_Initialize()

Call SetVariables

TB_Requester = xRequest.Range("F" & "2")
wRequest.Close

End Sub

Private Sub CmdB_Update_Click()

Call SetVariables

wRequest.ChangeFileAccess Mode:=xlReadWrite
xRequest.Activate
xRequest.Range("F" & "2") = TB_Requester

End Sub

Private Sub CmdB_Close_Click()

Unload Me

End Sub

工作表是根据申请表创建和更新的。然而，我可以从SharePoint打开它并手动更新，但要用VBA进行更新却很困难