VBA Read only on a copy

[raccoon588]

i have the following code that saves a copy of a file to a location. Is it possible to make it save the copy as a read only?

Sub Button28_Click()

ActiveSheet.Unprotect "987654"
Dim nom As String
Dim path As String
If Range("K45") <> 34 Then
MsgBox ("Review Your Entries, Something Was Missed"), ActiveSheet.Protect, exitsub
Else
    path = "\\hinas1\MFG\LED\SSL Paperwork\P552P558"
    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("Submited")
    
     
     ActiveSheet.Protect "987654"
     Application.DisplayAlerts = False
     Workbooks("P55XFirstArticle.xlsm").Close
   End If
End Sub