Save as Read Only

[raccoon588]

Is there a way to add to the following code that when the copy is saved it saves as read only?

Sub Button28_Click()



Dim nom As String
Dim path As String
If Range("K45") <> 33 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")
    
     
     Application.DisplayAlerts = False
    Workbooks("P55XFirstArticle.xlsm").Close
   End If
End Sub

 

[nemmi69]

Should be this

_ [COLOR=#333333]        [/COLOR][COLOR=#333333]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" ,[/COLOR][COLOR=#333333]WriteResPassword:="test", ReadOnlyRecommended:=True
[/COLOR]

 

[excelbusiness]

Microsoft Excel Consultant experts are accessible all over the world to guide and help you in using for your business. You can also find them online. As we know that Microsoft is spreadsheet and data storage software that forms a important part of business management program in many businesses, we should excel in using it. Microsoft experts help you to appreciate this program and you need to work out with it for all the levels right from entry to top management levels