vba Excel - Wie überprüft man, ob eine SharePoint-Website-Datei geöffnet ist

Question

Ich habe das Internet nach der Antwort zu diesem Thema gesucht und laufe in Probleme, die es zum Funktionieren bringen.

Ich muss überprüfen, ob eine Datei an der folgenden Position geöffnet/gesperrt ist, und dann muss der Code 15 Sekunden warten und dann erneut versuchen. Gerade jetzt, wenn jemand die Datei geöffnet hat, öffnet sich ein Dialogfeld, in dem gefragt wird, ob ich schreibgeschützt öffnen möchte, was ich nicht möchte. Ich habe versucht, Application.DisplayAlerts = False zu verwenden, damit die Nachricht nicht erscheint, aber das scheint nicht zu funktionieren. So habe ich zwei Hauptprobleme:

1. Überprüfen, ob die Datei geöffnet ist und wartet, um es erneut zu versuchen.
2. Stoppen Sie das Öffnen des Dialogfelds, um es nur als schreibgeschützt zu öffnen.

Workbooks.Open Dateiname: = _ "https://somecorporatewebsite/sites/TNKYWest/Engr/ASE%20Updates/Shared%20Documents/ASENW Updater.xlsx"

Answer 1

1. so etwas wie dieses Versuchen:

Von MSDN-Website: 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 

Gefunden auf der MSDN-Website: 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 

2. Dieser Teil der

   bedeckt IF workbooks.cancheckout (Dateiname: = docCheckout) = true dann 1 workbooks.checkout 'Methode teil .