我正在尝试检查是否可以检出存储在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
我希望能够阻止用户执行任何操作,直到签出文件为止。
任何人都知道为什么会发生这种情况?