.CanCheckOut没有返回正确的值？

Question

我正在尝试检查是否可以检出存储在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

我希望能够阻止用户执行任何操作，直到签出文件为止。

任何人都知道为什么会发生这种情况？