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") & "-" &...