Save a copy of an excel file as Read Only

[cchristner]

This is what I have so far. It saves a copy with the part number and date stamp but I am still trying to get it set as a read only.

Sub SaveTest()
Dim Path As String
Dim FileName1 As String
Dim DateTime As String
Path = "C:\Users\cory.christner\Desktop\Data\"
FileName1 = Range("B1")
DateTime = " (" & Format(Now, "yyyy-mm-dd hhmm") & ").xlsm"
ActiveWorkbook.SaveCopyAs Filename:=Path & FileName1 & "-" & DateTime & ".xlsm"


End Sub