I need my macro to decect if a shared workbook is in use and cannot be edited and then do

I am on excel 2010 with workbooks on SharePoint. I have one missing part to my code. I have made a button to save and close my workbook. It is located on SharePoint so it opens as read only, requiring the code to press the edit workbook button and take it out of read only mode. I found a way to get this part done. The problem is that if another user is actually in the file, it stops my work around for the edit button. The code does a better explanation than I do.

Please Login or Register  to view this content.

So if someone else is editing the file, the ActiveWorkbook.lockserverflie command tries to push the "edit workbook" button and it fails and the "file in use" dialog box appears. I have no problem with the file in use box, I just need the code to allow for the file to actually be read only. This will not happen often but, I have low level users that have little tolerance for things out of the norm. (hence the save and close button)

Thanks