How to remove read-only flag when file gets saved?
Because the file I work in to run this code is read-only it seems to save the document as read-only, but how to save the file so other people can still edit it?
comp = Environ("username")
fname = "C:Users" & comp & "Testing" & Format(Now(), "yyyymmdd-hh.mm") & "
Testing " & ".xlsx"
MsgBox "Correct saved" & vbNewLine & "Yes"
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook
You can change the access permissions for a workbook by using the .ChangeFileAccess method. I would also look if you are opening the workbook in read-only mode, instead of in read/write. If you opened in read/write the access should not change when you .save the file.
That said since you are using .SaveAs you can try changing the file access to xlReadWrite before saving it. Try:
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook
