Excel 损坏并进入只读模式

如何解决Excel 损坏并进入只读模式

所以我有一个 excel 文档，打开它时会随机中断。我在 VBA ThisWorkbook 部分确实有 Code 1，但在我打开它后启用宏之前它不会启动。

所附图片按我看到的顺序排列。一个注意事项是，我确实显示了隐藏文件，并且只有在打开“所有权文件”时才能看到它。我在共享网络上，但我没有权限查看它的全部打开位置。

我目前的解决方法是以不同的名称保存文件，然后删除旧文件并重命名。

经过一番研究，有人说这可能与排序有关。但是我添加了代码 2，但问题仍然存在。

代码 1

Dim Result

Result = MsgBox("The Data in this document might be outdated. Would you like to refresh the Data Queries? This process Could take a few minutes...",vbYesNo,"Data Query OutDated")
If Result = vbNo Then
    Exit Sub
End If

MsgBox "Queries Will Refresh Upon Closing this window. Please wait"
    
    ActiveWorkbook.Worksheets("sqlData").EnableCalculation = False
    ActiveWorkbook.Worksheets("FlowBreakDown").EnableCalculation = False
    Application.ScreenUpdating = False
    Change_Background_Refresh False
    
    ActiveWorkbook.RefreshAll
    Application.ScreenUpdating = True

    ActiveWorkbook.Worksheets("sqlData").EnableCalculation = True
    ActiveWorkbook.Worksheets("sqlData").EnableCalculation = False
    ActiveWorkbook.Worksheets("FlowBreakDown").EnableCalculation = False
    
    MsgBox "Refresh Complete"
    Call ResizeData
End Sub

代码 2

Dim Sht As Worksheet
' Clear all Sort Fields prior to Save & Exit
For Each Sht In Application.Worksheets
    Sht.sort.sortFields.Clear
Next Sht

End Sub