Vba .CanCheckOut是否返回正确的值？

我正在尝试检查存储在SharePoint服务器上的文件是否可以签出，以便提醒用户，并阻止他们在不签出文件的情况下编辑工作簿。我尝试了下面的代码，但当我尝试运行它时，它认为不可能签出，并且什么也不做。然而，当我检查SharePoint服务器时，它说它没有签出，可以签出

Function CheckOutCheck2() As Boolean
'CheckOutCheck2 = True
If Workbooks.CanCheckOut("FilePath") = True Then
    MsgBox "Please make sure the workbook is checkout before making any changes", vbInformation, "Check Out"
    CheckOutCheck2 = True
    Debug.Print ("Can Check Out")
End If
If Workbooks.CanCheckOut("Filepath") = False Then
    CheckOutCheck2 = False
    Debug.Print ("Cant Check Out")
End If
End Function

当我点击我的按钮时，我会这样做：

If CheckOutCheck2() = True Then
    Exit Sub
Else
    CreateNew.Show
End If

在文件签出之前，我希望能够阻止用户执行任何操作

Function CheckOutCheck2() As Boolean
'CheckOutCheck2 = True
If Workbooks.CanCheckOut("FilePath") = True Then
    MsgBox "Please make sure the workbook is checkout before making any changes", vbInformation, "Check Out"
    CheckOutCheck2 = True
    Debug.Print ("Can Check Out")
End If
If Workbooks.CanCheckOut("Filepath") = False Then
    CheckOutCheck2 = False
    Debug.Print ("Cant Check Out")
End If
End Function

---

有人知道为什么会发生这种情况吗？

您看到这个解决方案了吗：它适用吗？或者这个：？@拉尔夫。感谢这些链接，我想我在搜索时错过了它们。无论如何，第一个链接与我的问题非常相似，为了解决这个问题，我现在正在检查文件是否可以签入，并且它似乎正在工作。再次感谢您提供的链接。：）你看到这个解决方案了吗：它适用吗？或者这个：？@拉尔夫。感谢这些链接，我想我在搜索时错过了它们。无论如何，第一个链接与我的问题非常相似，为了解决这个问题，我现在正在检查文件是否可以签入，并且它似乎正在工作。再次感谢您提供的链接。：）