Excel disable Read-Only from SharePoint with VBA

Question

Hello Group,We have a lot of Excel files that are saved with "read-Only recommended".&nbsp;I would like to open files with VBA and also capture the click on "Edit Anyway" in code.&nbsp;I have this code:&nbsp;&nbsp;        Dim exApp As Excel.Application
        Dim wb As Excel.Workbook
        Set exApp = Excel.Application
        DoEvents
        exApp.Visible = True
'        Set wb = App.Workbooks.Open(Filename:=sfilename, UpdateLinks:=False, ReadOnly:=False, IgnoreReadOnlyRecommended:=true)
        Set wb = exApp.Workbooks.Open(Filename:=sfilename, ReadOnly:=False)
        DoEvents
        If ActiveWorkbook.AutoSaveOn = True Then ActiveWorkbook.AutoSaveOn = False
        DoEvents&nbsp;&nbsp;When I open the file from SharePoint, there is no Read-Only active:When I open it with the VBA code, Read-Only is activated,although I have ReadOnly:=False in my Workbooks.Open statement.How can I make this behave the way I want (so the file is opened in Excel without Read-Only restriction, same as when&nbsp;"Edit Anyway" would have been clicked).Grtz, Bart

nikolinode · Answer

BartH_NL&nbsp;Maybe this link will help you further...SharePoint files open as read-only

barth_nl · Answer

NikolinoDE&nbsp;Thank you Nikolino, but the problem doesn't exist when I open the file (manually) from SharePoint, but when I open it with VBA.

nikolinode · Answer

BartH_NL&nbsp;VBA Code to open an Excel file on a sharepoint site&nbsp;

barth_nl · Answer

NikolinoDE&nbsp;Thanks again Nikolino,In the code which Vit has found, is the same statement I have used:His:Set wb = xlApp.Workbooks.Open(xlFile, , False)Mine:Set wb = exApp.Workbooks.Open(Filename:=sfilename, ReadOnly:=False)But alas, it still results in a Read-Only opened file.ReadOnly:=False is simply ignored.

nikolinode · Answer

BartH_NL&nbsp;Try this code and see if it worksSub write protectionONOFF()
With ActiveWorkbook
If .ReadOnly = True Then
'direct entry of the password
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="mypass"
else
ActiveWorkbook.ChangeFileAccessMode:=xlReadOnly
End If
End With
' had yet to be added
end sub...is also new water for me VBA with Sharepoint 🙂&nbsp;

Forum Discussion

Excel disable Read-Only from SharePoint with VBA

Share

Resources