vba Excel - How to Check if a SharePoint Website File is Open

Question

I've searched the internet for the answer to this and keep running into issues getting it to work.

I need to check if a file at the below location is open/locked, and then have the code wait 15 seconds and then try again. Right now if someone else has the file open a dialog box opens asking if I want to open read only, which I don't want. I tried using Application.DisplayAlerts = False to get the message not to appear but that didn't seem to work. So I have two main issues:

Checking if the file is open and waiting to try again.
Stop the dialog box from opening asking to open as read only.

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

maybe this will help stackoverflow.com/questions/25668098/… — Slai
– Slai, Commented Aug 2, 2016 at 12:45

marionffavp · Accepted Answer · 2017-02-14 15:53:02Z

0

Try something like this:

From MSDN site: 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

Found at the 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

This part is covered in the

IF workbooks.cancheckout(filename:=docCheckout)=true then workbooks.checkout ' method in part 1.

edited Feb 14, 2017 at 15:53

answered Feb 8, 2017 at 18:53

marionffavp

39 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

vba Excel - How to Check if a SharePoint Website File is Open

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related