sharepoint - チェックアウトせずにsharepointファイルを開く

Question

ドキュメントを取得するために、既存のシステムを共有ポイント サイトにリンクする必要があります。

サイトからドキュメントを開くことはできますが、開くと、[チェックアウトして開く] か、単に [開く] かを尋ねるウィンドウが表示されます。

ドキュメントがチェックアウトされずに常に開かれるように、コード内でこの値を設定するにはどうすればよいですか。

これは私のコードです:

Dim runFile
Dim rsDoc

Set rsDoc = CreateObject("ADODB.Recordset")
rsDoc.Open "Select xalFileName as Filename from DocumentLinks where xalReference = '"&Trim(controls("M1TextBox1").Value&"'"), Connection, adOpenStatic, adLockBatchOptimistic, adCmdText

If rsDoc.EOF Then
    Call App.MessageBox("The document code is not valid, please speak to Keith",vbInformation,"Data updated")

Else
    Do While Not rsDoc.EOF
        sFile = rsDoc.Fields("Filename")

        Set runFile = CreateObject("WScript.Shell")
            runFile.Run Chr(34) & sFile & Chr(34), 1, False
        Set runFile = Nothing

        rsDoc.MoveNext
        Loop
End If
rsDoc.Close