vba Excel - SharePoint Webサイトファイルが開いているかどうかを確認する方法

Question

私はインターネットでこれを解決し、問題を解決するためにインターネットを検索しました。

以下の場所にあるファイルがオープン/ロックされているかどうかを確認してから、コードを15秒待ってからもう一度やり直してください。今すぐ他の誰かがファイルを開いている場合は、私が読まないようにするかどうかを尋ねるダイアログボックスが開きます。私はApplication.DisplayAlerts = Falseを使用してメッセージを表示しないようにしようとしましたが、動作していないようです。だから私は2つの主な問題があります：

1. ファイルが開いていて、もう一度やり直すのをチェックしています。
2. ダイアログボックスを開くのを止めて、読み取り専用で開くように要求します。

Workbooks.Openファイル名：= _ "https://somecorporatewebsite/sites/TNKYWest/Engr/ASE%20Updates/Shared%20Documents/ASENW Updater.xlsx"

Answer 1

1. このような何か試してみてください：

MSDNのサイトから： https://msdn.microsoft.com/en-us/library/office/ff193284.aspx

Sub UseCanCheckOut(docCheckOut As String) 
Dim docCheckout 
set docCheckout="File name to open" 
' Determine if workbook can be checked out. 
If Workbooks.CanCheckOut(Filename:=docCheckOut) = True Then 
Workbooks.CheckOut (Filename:=docCheckOut) 
Else 

をMSDN Webサイト：にありますhttps://msdn.microsoft.com/en-us/library/office/ff822851.aspx

Application.Wait(Now + TimeValue("0:00:10")) 
Workbooks.CheckOut (Filename:=docCheckOut) 'Try to check the file out again. 
End If 

End Sub 

workbooks.cancheckout（ファイル名：= docCheckoutが）場合、この部分は

に覆われ

パート1で真次いでworkbooks.checkout 'メソッドを=