迁移至SharePoint后Excel VBA列表框数据无法提交至工作表

• 此前正常运行的Excel VBA表单提交功能，在工作文件迁移到SharePoint后出现单点故障：仅列表框（Listbox）内的数据无法写入目标工作表
• 提交操作执行后，系统仍会正常弹出“数据已成功录入”的确认提示，其余普通表单字段（生产描述、日期、完成状态等）均可正常保存
• 故障发生前未对VBA代码做任何修改，唯一环境变动为文件从本地存储迁移至SharePoint协同目录

故障由代码逻辑缺陷叠加SharePoint协同环境特性共同导致：

1. 无效Range嵌套引发写入失配：原代码拼接列表框内容的循环中，嵌套了无实际操作的With Sheets("Sales Order Log").Range("Sales_Data_Start")块，且将列表框拼接值的单元格写入操作放在了循环内部。SharePoint协同模式下Excel会频繁刷新Range对象的引用指针，循环内反复触发写入时容易命中引用空窗期，导致值无法正常落盘。
2. 字符串变量未显式初始化：存储列表框拼接内容的wkord变量未做初始清空，多轮提交操作时容易出现值残留、空值覆盖的问题。
3. 成功提示无前置校验：代码没有对列表框数据的写入结果做判断，无论写入是否成功都会走到最后的成功弹窗逻辑，因此会出现“提示成功但数据缺失”的假象。
4. 分支逻辑漏洞：原代码必填项校验触发退出时，没有重新给工作表加保护，会导致工作表处于长期未保护状态。

Private Sub Production_Submit_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sales Order Log")
    ws.Unprotect Password:="XstrahlSalesOrderLog"

    ' 校验必填销售订单号
    If Trim(SalesOrderProd.Text) = "" Then
        WorkOrderNo.Locked = True
        ProdDesc.Locked = True
        ProdDate.Locked = True
        ProdComplete.Locked = True
        MsgBox "Please insert a Sales Order Number to continue", vbCritical, "Missing Sales Order Number"
        ws.Protect Password:="XstrahlSalesOrderLog"
        Exit Sub
    Else
        WorkOrderNo.Locked = False
        ProdDesc.Locked = False
        ProdDate.Locked = False
        ProdComplete.Locked = False
    End If

    Dim Reference As String
    Dim wkord As String
    Dim LastRow As Long, i As Long, j As Long
    ' 显式初始化变量，避免多轮提交值残留
    wkord = ""
    Reference = Trim(SalesOrderProd.Text)
    ' 显式指定工作表取最后行，避免SharePoint环境下表识别错误
    LastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row

    For i = 2 To LastRow
        ' 匹配对应销售订单行写入数据
        If ws.Cells(i, 2).Value = Reference Then
            ws.Cells(i, 13).Value = ProdDesc.Value
            ws.Cells(i, 14).Value = ProdDate.Value
            ws.Cells(i, 15).Value = ProdComplete.Value

            ' 处理列表框数据
            If WkOrderList.ListCount > 0 Then
                ' 先循环拼接所有列表项，不在循环内做单元格写入
                For j = LBound(Me.WkOrderList.List) To UBound(Me.WkOrderList.List)
                    wkord = wkord & IIf(wkord = "", "", vbNewLine) & Me.WkOrderList.List(j, 0)
                Next j
                ' 拼接完成后一次性写入单元格
                ws.Cells(i, 12).Value = wkord
            End If
        End If
    Next i

    ' 等待SharePoint协同同步完成数据落盘
    DoEvents

    ' 提交成功提示
    MsgBox "Information added to Sales Order: " & SalesOrderProd & " successfully", vbInformation, "Production"

    ' 清空表单
    SalesOrderProd.Value = ""
    WorkOrderNo.Value = ""
    ProdDesc.Value = ""
    ProdDate.Value = ""
    ProdComplete.Value = ""
    WkOrderList.Clear

    ws.Protect Password:="XstrahlSalesOrderLog"
End Sub

• 代码中统一用ThisWorkbook.Worksheets()指定工作表对象，避免协同模式下误引用本地缓存的临时文件副本
• 删除了原代码中无实际作用的With嵌套块，将列表框内容拼接完成后一次性写入单元格，减少循环内的Range对象调用，降低协同刷新时的引用冲突概率
• 写入完成后增加DoEvents语句，给SharePoint同步进程留足数据落盘的时间，再执行后续的工作表保护、表单清空操作
• 补全了必填项校验分支的工作表保护逻辑，避免权限漏洞

内容的提问来源于stack exchange，提问作者Strexxin