VBA to save a file that was opened as read only

[LSM1604]

Hey,

I would like some code that changes the workbook to Attr - normal, then to save it. However I get an error message saying that the workbook cannot save as that name as it was opened as read only.

This is the code I have:

SetAttr ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, vbNormal
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True

Any ideas?

Many Thanks,
LSM1604

 

[shg]

You might try

ActiveWorkbook.ChangeFileAccess xlReadWrite

... but I don't know if it will work.

 

[VoG]

Try

ActiveWorkbook.ChangeFileAccess  xlReadWrite

 

[LSM1604]

Thanks for the replies.

I have tried the code you have mentioned instead on the Set Attr, and I not get a different error:

"Cannot access read only document..."

Any ideas?

Thanks,

LSM1604

 

[shg]

You have to do both:

    With ActiveWorkbook
        SetAttr .FullName, vbNormal
        .ChangeFileAccess xlReadWrite
 
        Application.DisplayAlerts = False
        .Save
        Application.DisplayAlerts = True
    End With

 

[LSM1604]

Hi shg4421,

Thank you very much . It worked perfectly. I didn't think to try the both together.

Life Saver!

Thanks again,

LSM1604