Saving a copy of Workbook as Read Only?

[jmpatrick]

This script creates a backup copy of my Workbook. I've been trying to change it so that the backup is saved as Read Only. Possible?

ActiveWorkbook.SaveCopyAs Filename:=zpath & "\" & Sheets("Paths").Range("B5").Value & " " & Format(Now, "yyyymmdd") & ".xlsm"

 

[Domenic]

Try the following...

    Dim saveAsFileName As String
    saveAsFileName = zpath & "\" & Sheets("Paths").Range("B5").Value & " " & Format(Now, "yyyymmdd") & ".xlsm"
    
    ActiveWorkbook.SaveCopyAs Filename:=saveAsFileName

    VBA.SetAttr saveAsFileName, vbReadOnly

Hope this helps!

 

[jmpatrick]

Try the following...

    Dim saveAsFileName As String
    saveAsFileName = zpath & "\" & Sheets("Paths").Range("B5").Value & " " & Format(Now, "yyyymmdd") & ".xlsm"
   
    ActiveWorkbook.SaveCopyAs Filename:=saveAsFileName

    VBA.SetAttr saveAsFileName, vbReadOnly

Hope this helps!

Perfect. Thanks!

 

[Domenic]

You're very welcome, cheers!