Read Only

[raccoon588]

Is there a way to make this save the copy as read only?

path = "\\hinas1\MFG\LED\SSL Paperwork\U502\U502FogLBFirstArticle"    nom = Left(ActiveWorkbook.Name, (InStrRev(ActiveWorkbook.Name, ".", -1, vbTextCompare) - 1)) & " " & Year(Date) & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00") & " (" & Hour(Time) & "-" & Minute(Time) & ").xlsm"
    ActiveWorkbook.SaveCopyAs path & "\" & nom
    rep = MsgBox("Submitted")

 

[ZVI]

How about this?

  ActiveWorkbook.SaveCopyAs Path & "\" & nom
  SetAttr Path & "\" & nom, vbReadOnly

 

[raccoon588]

It ends up making the line above it highlight in yellow and it does not work.

 

[raccoon588]

bump